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Exhibit 12 



* Unpolished and confidential. Not to be reproduced, 

* disseminated, transferred or used without the prior 

* written consent of Eaton Corporation. 

* Copyright Eaton Corporation, 1993-94. 

* All rights reserved. 



Filename: oHyfllriKSlfc (AutoSplit) 
Description: 

The functions in this file will perform the required operations 

for controlling drivel ine components on the J1939 communication link. 

Part Number: <none> 

SLog: R:\ashift\vcs\drl_cmds.c9v $ 

Rev 1.9 25 Feb 1994 16:07:40 schroeder 
Removed predip's (experimental) BIN 8 ramp off rate—no longer needed. . 
Added condition to predip's torque bumps: timers are frozen until 
actual_engine_pct_trq responds. Important when engine brakes are on. 
Made RECOVERY_STEP J'ABLE tl a constant value—all ratios used 8X. 

Rev 1.8 21 Feb 1994 15:07:26 schroeder 
Replaced shiftabi I i tyjnode with new flag, engine_brake_avai lable. 

Rev 1.7 03 Feb 1994 15:57:28 schroeder 
Added setting of command_ETC1 to each command function, enabling 
overspeed during control_engine_predip( ) and control_engine_sync() and 
disabl ing over speed during all others. 

Rev 1.6 17 Nov 1993 09:50:10 amsallen 
In the initiate function, net_engine_pct_trq was replaced with 
act_engine_pct_trq since desired_engine_pct_trq values are in indicated 
power not net_power. A * so sync_timer timeout was reduced to 100 for 
down shifts and 200 for upshiftsO second and 2 seconds) rather than 200 
for all shifts. Also the delay at 0 torque after a time out was increase 
from 150msec to 250 mesec. 

Rev 1.5 04 Nov 1993 09:16:08 schroeder 
In RECOVERY_STEP^TABlE CI , restored the value for sixth gear to 8%. 

Rev 1.4 02 Nov 1993 09:40:06 schroeder 
Replaced demanding ine jxt_trq with pct_demand_at_cur_sp. Engine 
speed limit during torque limit operation changed from high idle to 
8031 rpm, as suggested in J 1939/71. 

Rev 1.3 11 Oct 1993 14:22:40 schroeder 
Removed cruise_contro Inactive flag; replaced accel pedal with 
demanding i ne_pc t_t rq . 

Rev 1.2 22 Sep 1993 10:48:22 amsallen 
The function control engine sync wa* changed to resolve OR 3235ma08.deb, 
clunky low throttle high range shifts. The engine target now moves above 
sync when input_speed - sync < 40 rpm and transmission position * engaging 
rather than just tp ■ engaging. Se# OR 3235ma08.deb for additional details. 

Rev 1.1 01 Sep 1993 14:09:52 schroeder 
In control_engine_sync, modified dither to insure that the engine 
target stays below sync for a range shift. Also, the dither amount 
increases from 35 rpm to 100 rpm, then repeats. 

Rev 1.0 29 Jul 1993 16:40:40 schroeder 
Initial revision. 



* Header files included. 
#include <exec.h> /* executive information */ 



'include <c_regs,h> 
^include <wwslib.h> 
iinclude »cont syt.h" 
^include »conj1939.h» 
iinclude "drl cnk.h* 
#include "trn'tbl.h" 
finclude M sel gear.h M 
#include "calc^spd.h" 
•"include H trns][act.h u 

fpragma noreentrant 

* #defines local to this file. 
#define USJ>ER_L00P 10000U 

#define ACT I VE_RECOVERY_GEAR 10 /* rule out boosting downs for now */ 
* 

* Constants and variables declared by this file. 



/* a internal register definitions V 
/* contains coossan global defines V 
/* control tystea Information */ 
/• defines interface to j1939 control module */ 
/* drivel ins commands information */ 
/* transsrission table data structures */ 
/* access to speed filter values */ 



/* public */ 



register uchar engine_conmands; 
register uchar engine_status; 
uchar desired_sync_testjnode; 
/* uint desired_eng_spd_new; */ 
/* uint desired~eng~spd~delta; */ 
/* uint desi red%ng~spdjdi f f ; */ 
uint des ired_engine3speed_ test; 
uint des i red~eng i ne's peed" ramp; 
uchar des ired_engine_speed_ timer; 
uchar des ired^engine^s peed" time; 
uchar eng_brake_conmand; 
uchar eng_brake_assist; 
uchar posi t i ve_pedal_trans; 
uchar sync_f irst_pass_timer; 
uchar clutch_state; 
uint clutch's I ip_speed; 
int dos_f iTtered; 
int overal l_error; 
unsigned int os_based_on_rcs; 
unsigned int i nput_speed"f U tered; 
unsigned long is_f UteredJ>in8; 
unsigned int output_speed_f i I tered; 
unsigned long os_f i I teredJJi re- 
signed int input_speed"accel_f i Itered; 
signed long dis_f i ltered_bin8; 



char eng_percent_torque_f 1 1 tered; 

char percent_torque_accessories; 

char needed _percent_f or_zero_f I ywhee l_trq; 

uchar zero^f I yvn eel _t routiner" 

uchar zero_f lyvheel~trq_tlme; 

uchar accelerator _pedal_pas1tion_old; 

i nt i nput_shaf t_accel_calculated; 

uint gos; " /* overall destination gear ratio * output speed BIN 0 */ 

int gos_signed; /* overall destination gear ratio * output speed BIN 0 */ 

uint gos_current_gear; /* overall current gear ratio * output speed BIN 0 V 

unsigned char sync_f irst_pass; 

unsigned int sync"maintain_timer; 

signed int sync_offset; 

signed int sync~do3_of fset; 

signed int sync_dosj3f f set JC1 ; 

signed int sync"s peedjnod i f i ed ; 

unsigned char internet o_shi ft; 

char intent~f inal_pct_trq; 

char intent~ranp_off_rate; 



/* local */ 



static uint prtdfp_tiaar_1; 
static uchar prtdip_tiaa*_2; 
static uchar pradip~tf«tr_3j 
st st 1c char predip_torqua_bu^p_valua 
static uchar pradi p_ t orqua_bL«p_t 1 wm 

static uint sync_on_t tatr ; 
static uint sync~off_ti«ar; 
static uchar syncjj i t ha r_ t i amr ; 

static uint torque_ limit; 
static uchar recovery_cancal_timer; 
static uint recov_coast_down_tnp1; 
static uint recov_coast_down_tmp2; 

static int dgos; 

static int lpf_output_accel; 



#pregma EJECT 



• PR ED IP MODE CONSTANTS 

* 

•A************************************************ 



#def ine 


PREDIP ZERO F0BK_TIHE 


40 


/* 


0.40s a 10ms period 


*/ 


#define 


PREDIP*TORQUE ZERO.TIME 


60 


/* 


0.60s 3 10ms period 


V 


#define 


predip~normal~tike~ 


200 


/* 


2.00s a 10ms period 


V 


#def ine 


T0ROUE~RAMP_oFf_RATE 


1 


/* 


U (per loop) V 




#def ine 


PREDIP TORQ BUMP VALUE 10 


0 


/* 


OX */ 




#def ine 


PREO I P~TORQ~BUMP~T I ME_LO 


15 


/* 


0.15s 310ms period 


V 


«define 


PREDIP TORQ BUMP VALUE_MED 


5 


/* 


5X V 




#define 


PRED I P^TORQ^BUMP^T I ME_MED 


25 


/* 


0.25s aiOms period 


*/ 


#def ine 


PREDIP TORQ BUMP VALUE JU 


10 


/* 


10X */ 




#define 


PRED I P~T0R0~BUMP JT I ME_H I 


30 


/* 


0.30s a 10ms period 


V 



SYNC MOOE CONSTANTS 



#def ine 


SYNC DITHER TIME ABOVE 


20 


/* 


0.20s a 10ms period 


V 


#def ine 


SYNC DITHER~TIME BELOW 


30 


/* 


0.30s 3 10ms period 


V 


^define 


SYNC~DITHER~RPM " 


35 


/* 


35 rpro 


V 


#def ine 


SYNC~D I THER~F I RST_T IME 


255 


/* 


DUMMY VALUE 


*/ 


#define 


MAINTAIN SYNC TIME 


500 


/* 


5.00 Sec 


V 


#define 


SYNC FIRST PASS TIME 


250 


/* 


2.50 Sec 


V 


#def ine 


THREE PERCENT 


3 








#def ine 


ENG RESPONSE UPSHF TIME 


10 


/* 


10 msec 


*/ 


#define 


ENG~RE SPONSE~DNSH F~T I ME 


10 


/* 


10 msec 


V 


#define 


SYNC DOS OFFSET CONSTANT 


2816 


/* 


11 BIN 8 


*/ 



* 

* RECOVERY MOOE CONSTANTS 

* 



#define RECOVERY CANCEL TIME 10 /* 0.10s aiOms period V 

#define RECOVERy"canCEL~OFFSET 20 /* 20X BIN 0 V 

#define RECOVERY TORQUE STEP 1280 /* 5X BIN 8 */ 
#define THLO OS ENG DECAY K1 450 

#def ine THL0~DS ENG DECAY RAMP 1 /* 1 rpm BIN 0 */ 

#define THLO~DS~FInTshED_DELTA 200 /* 200 rpro BIN 0 */ 

static const uint RECOVERY RATE TABLE [233 = 



o, 


/* 


-4 


*/ 












o, 


/* 


-3 


*/ 












128, 


/* 


-2 : 


0.50X 


per 


loop 


BIN 


8 


*/ 


128, 


/* 


-1 : 


0.50% 


per 


loop 


BIN 


8 


*/ 


128, 


/* 


0 : 


0.50% 


per 


loop 


BIN 


8 


*/ 


128, 


/* 


1 : 


0.50% 


P«r 


loop 


BIN 


8 


*/ 


128, 


/* 


2 : 


O.SOX 


per 


loop 


BIN 


8 


V 


128, 


/* 


3 : 


0.50% 


per 


loop 


BIN 


8 


*/ 


128, 


/* 


4 : 


0.50% 


per 


loop 


BIN 


8 


V 


192, 


/• 


5 : 


0.75X 


per 


loop 


BIN 


8 


*/ 


192, 


/* 


6 : 


0.75X 


per 


loop 


BIN 


8 


•/ 


192, 


/* 


7 : 


0.75X 


per 


loop 


BIN 


8 


*/ 


281, 


/* 


8 : 


1.10X 


per 


loop 


BIN 


8 


V 


281, 


/* 


9 : 


1.10X 


per 


loop 


BIN 


8 


*/ 


281, 


/* 


10 : 


1.10% 


per 


loop 


BIN 


8 


*/ 


0, 


/* 


11 


•/ 












0, 


/* 


12 


V 












0, 


/* 


13 


V 












0, 


/* 


14 


V 












0, 


/* 


15 


V 












0, 


/* 


16 


V 












0, 


/* 


17 


*/ 












0 


/* 


18 * 


/ 













* Function: initialixejirivelinejiata 

* — — 

* Description: 

* This function, called after all resets, will initialize the system 

* copy of drive line related data received from the communications link. 



static void initialize drivel ine data(void) 
< 

accelerator _pedal ^position ■ 0; 
ertgirw_cofflmunication_active * FALSE; 
engine~brake_aveilabfe * FALSE; 

eng brake^ccmnand » ENG BRAKE IDLE; /* should init with engine^com ma nd a * 

clutch_state * ENGAGED;" 

positive_pedal_trans » FALSE; 

zero_f lywheel_trq_tiroer * 0; 

zero~f lywheel_trq_time 3 0; 

percent_torque_accessories = 3; 

desired_sync_test_mode « FALSE; /* debug use only - delete later */ 

des i r ed^eng i ne_speed_t es t = 0 ; /* debug use only - delete later */ 

desired^engine^speed^ramp 3 0 ; /* debug use only - delete later */ 

desired_engine~speed * 0; 
/* des i red_eng_spd_new =0; */ 
/* desired~eng~spd~diff * 0; */ 
/* desired_eng_sp3delta = 10; */ 

desired engine speed timer = 0; 

sync_dos_offsetJC1 *~SYMC_DOS_OFFSET_CONSTANT; 

desired_engine_speed_t ime = 0; 

intent_to_shif t = FALSE; 

intent_f inal jxt_trq = 0; 

intent_ramp_of f_rate = 1; 



) 



^pragma EJECT 



* Function: controller* ine^predip 

* *~ 

* Description: 

* Determine* throttle comnand for predip mode. 

* After a reasonable delay for the transmission to pull to neutral the 

* torque will be cycled from zero to a determined value to help the 

* transmission achieve neutral. 
* 

static void control engine_predip(void) 
( 

if (engine status != ENGINE PREDIP MOOE) 
( 

engine_status = ENGINEERED I PJ400E ; 

predip_timer_1 = 0; 
predip't imer~2 = 0; 
predip_timer_3 = 0; 

if (actual enginejxt trq < 5) 

predip_timer_1 = PRED I P_NORMAL_T I ME ; 
else 

desired engine_pct trq = actual engine_pct trq; 

> 

engine control = TORQUE CONTROL; 
command_ETC1 * C_ETC1_OVERSPEED; 

if (predip timer 1 < PREDIP NORMAL TIME) 
C 

if ((desired_engine_pct_trq >= TORQUE_RAMP_OFF_RATE ) && 
(actual_engine_pct trq > 0)) 

( 

desired enginejxt trq -* TORQUE RAMP OFF RATE; 

> 

else 
( 

desired^engine^pct^trq = 0; 

/* check to force bunp if neutral not achieved */ 

if (actual engine^pct trq < 10) 

( 

if (♦♦predip_timer_3 >= PRED I P_ZERO_FDBK_T I ME ) 
predip timer 1 = PREDIP NORMAL tTmE; 

> 

> 

♦♦predip timer 1; 

> 

else 
< 

if ((Ipf output accel > -150) && 

(predTp timer 1 < (PREDIP NORMAL TIME ♦ PREDIP TORQUE ZERO TIME))) 

C 

predip torque bump tint » PREDIP TORQ BUMP TIME LO; 

predip"torque"buap"vatu« » PREDIP TORQ BUMP VALUE LO ♦ needed ^percent for zero flywheel trq; 

> 

else . 
< 

if (predip timer 1 < (PREDIP NORMAL TIME ♦ 2* PRED IP TORQUE ZERO TIME)) 
( 

predip_torque_bump_tiroe ■ PRED I P_TORQ_BUMP_T I ME_MED ; 

predipTtorque bump"value « PREDIP TORQ BUMP VALUE MED ♦ needed_percent for zero flywheel trq; 

> 

else 
C 

predip torque bump time * PREDIP TORQ BUMP TIME HI; 

predip'torque bump value • PREDIP TORQ BUMP VALUE HI ♦ needed _per cent for zero f lywheel_trq; 

> 

> 

if (predip timer 2 < predip torque bump time) 
C 

desired_engine_pct_trq = predip_torque_bump_value; 

if (actual engine_pct trq > 0) 

( 



> 



> 

> 

els* 

{ 

des i red_eng i ne jxt_t rq « 0; 
♦+pred i p_t i oer_1 ; 
♦*prtdip"tintr~2; 

> 

if <predlp_tf«»r_2 >• PREDIP_T<*OUE_ZERO_TIKE) 
predip_t imtr_2 • 0; 



> 

#pragma EJECT 



* Function: controt_engine_sync_l«vtr (AutoSplit) 

* — — 

* Description: 

* This function synchronizes engine speed to output shaft speed 

* during a shift. 



static void control engine sync lever(void) 
i 

if (accelerator_pedal_position > THREE_PERCENT) 
syncjnaintain_timer a MA I MT A I N_SYNC_T t HE ; 

if ((engine status != ENGINE SYNC MODE) || (sync maintain timer » 0)) 

sync_on_timer = 0; 
sync_of f _t imer = 0; 

if (engine status 1= ENGINE SYNC MODE) /* first time through sync */ 
( 

sync maintain timer = MAINTAIN SYNC TIME; 
engine status"* ENGINE SYNC MOOE; 

> 

else /* sync maintain timer reached 0 */ 

( 

engine control = OVERR I DE_D I SAB LEO ; 
command ETC1 = C ETC1 NORMAL ; 

> 

> 

else 
C 

sync jna i nt a i n_t i me i — ; 

if (sync on timer** <= 296) /* allow sync mode for about 3 SEC V 
( 

sync_of f_timer = 0; 

engine control = SPEED CONTROL; 

coromand_ETC1 * C_ETClJ5vER SPEED; 

if (shift type == UPSHIFT) 
( 

sync offset = -65; /* RPM */ 

> 

else /* shift is a downshift */ 

i 

sync offset » -65; /* RPM */ 

> 

if (gos signed * sync offset > 0) 
{ 

/* des i red_eng i ne_spe«d » <int)<0os_signed ♦ sync_of fset); V 

_cx * dosjiltered; /* BIN 0 */ 

"bx * trn'tbl.geer r at fo (destination gear * GR OFS]; /* BIN 8 */ 
"ax = sync dot offset K1; " /* BIN 8 V 

asm mul _cxdx,~_6x; " /* BIN 8 */ 

asm div "cxdx, "ax; /* divide by constant BIN 8 */ 

syncjios^offset"* _cx; /* save final result BIN 0 V 

desired_engine_speed * (int)(gos_signed ♦ syncjjffset ♦ sync_dos_of fset); 

#if (0) 

des i red_eng_spd_ne* * ( int)(gos_signed * sync_of fset); 

if ( des i red_eng_spd_new > des i red_eng i ne_speed) 

desired_eng_spd_dTff « des i red_eng_spd~new - desired_engine_speed; 
else 

desired_eng_spd_diff » des i r ed_eng i ne_speed - desired_eng_spd_new; 

if (desired_eng_spd_diff > des i red_eng_spd_de 1 1 a ) 
desired engine speed ■ desired eng spd new; 

#endif 



else 

desired engine speed * 0; 

> 

else 
C 

if (sync off timer <» 4) 
C 

sync off timer*-*; 

#if (0) 

engine control ■ TORQUE CONTROL; 
conmandJTCI » C_ETC1_0VERSPEED; 

desired~engine_pct trq » needed ^percent for zero f lywheel_trq; 

#endif 

> 

else 

sync_on_timer * 0; 

> 

> 

> 

#pragma EJECT 



• Function: control _eng i ne_sync_eut o (AutoSptit) 

• Description: 

* This function synchronizes engine speed to output shaft speed 

* during a shift. 
* 

static void control engine sync_auto(void) 
C 

if (accelerator _pedal ^position > THREE PERCENT) 
syrrcjnaintain_timer * MAINTAIN_SYNC_T1ME; 

if ((engine status !» ENGINE SYNC MODE) || (sync maintain^ iraer 0)) 
< 

sync_on_timer 3 0; 
sync~of f_t imer a 0; 
sync~f irst_pass = TRUE; 

syncj irst_pass_tiroer » SYNC_FIRSTJ>ASS_TIME; 

if (shift_type == UPSHIFT) 

sync_offset = -65; 
else 

sync_offset * 65; 

if (engine status != ENGINE SYNC MOTE) /* first time through sync V 
( 

sync maintain timer = MAINTAIN SYNC TIME; 
engine status~= ENGINE SYNC MODE; 

> 

else /* sync maintain timer reached 0 */ 

( 

engine control * OVERRIDE DISABLED; 
command ETC1 * C ETC1 NORMAL; 

> 



else 
C 

s yncjna i n t a i n_ t i me r - - ; 

if (sync on timer** <= 200) /* allow sync mode for about 2 seconds V 
( 

sync off timer = 0; 

engine control = SPEED CONTROL; 

command_ETCl = C_ETC1 J)VERSPEED; 

if (sync firstjjass TRUE) 
i 

if (shift type =» UPSHIFT) 
( 

sync speed modified = (signed int)( input speed) * 

(input_speed_accel_filtered /(1000/ENG_RESPONSEJJPSHF_TIME)) 

if (sync speed modified < got signed) 
C 

if (sync first_pass timer « 0) 

( 

sync_offs«t • 65; 
sync~f i rst jmt* ■ FALSC; 

> 

else 

sync first_pass timer--; 

> 

) 

else /* shift is a downshift V 
< 

sync speed modified * (signed int)( input speed) * 

( i nput_spe*d_acce l"f i I tered /(1000/ENG_RESPO*SEJ)N$HF_TIME)) 

if (sync speed modified > gos signed) 

C 

/* if (sync first_pass timer « 0) V 
/* I " V 

sync_first _pasa » FALSE; 

if (pct_denend.at_cur.sp < 15) 
sync_offset « -65; 



/♦ > V 

/* «lM */ 

/* sync first _pm**_Umr--; V 

> 

> 

> 

if (gos_signed ♦ sync_offset > 0) 

desired_engine_speed ■ (int)(gos_signed ♦ sync_of fset); 
else 

desired engine speed * 0; 

> 

else 
< 

if (sync off timer <= 4) 
< 

sync off timer**; 

#if (0) 

engine control » TORQUE CONTROL; 
conmand_£TC1 * C_ETC1_0VERSPEED; 

desired"engine jxt trq * needed_percent for zero flywheel trq; 

#endif 

> 

else 
< 

sync_on_t imer » 0; 

sync offset » -(sync offset); /* force sync speed to toggle around gos */ 

> 

> 

> 

> 

#pragma EJECT 



* Function: control_engine_sync (AutoSplit) 

* Description: 

* This taction synchronizes engine speed to output shaft speed 

* during a shift. 
• 

static void control engine sync(void) 
< 

if <shiftjnit_tvpe == AUTO) 
cont rol_eng i ne_sync_auto( ) ; 
else 

cont r o I _eng i ne_sync_ I ever < ) ; 
intent_to_shift = FALSE; 

> 

#pragma EJECT 



* Function: control_en9fnt_sync_te»tjnode (AutoSp(it) 

* r — 

* Descriptions 

* This function test the synchronize node of engine speed control. 



static void control engine sync test mode(void) 
< 

if <acceleratorj3edal - posi tion < 10) 
< 

engine_status = ENGINE_FOLLOUERJ4GOE; 
engine'commands * ENGINE FOLLOWER; 
engine'control » OVERRIDE DISABLED; 
cocnnand_ETC1 « C_ETC1_N0RHAL; 
desired~engine speed » 0; 

> 

else 
( 

if (accelerator_pedal ^position > 90) 
( 

engine_status * ENGINE_SYNCJWOE; 

eng i ne_. commands = ENGINE_SYNC; 

engine~control = SPEED CONTROL; 

commandJTCI » C_ETC1_OVERSPEED; 

des ired~engine_s peed = desi red_engine_speed_test; 

desired engine speed timer = desired engine speed time; 

> 

else 
C 

if (desired_engine_speed_timer > 0) 

des i red_engi ne_speed_t imer* - ; 
else 
C 

if (desired engine speed > 600) 
C 

des i red_eng i ne_speed_t imer = des i red_eng i ne_speed_t i me; 

des i red'eng i ne" speed 3 (desired engine speed - desired eng ine_speed_ ramp) 

> 

> 

> 

> 

> 

#pragma EJECT 



* Function: deter*ine_i f_recovery_conplete 

* Description: 

* This routine checks to see if the percent_torque_value_l irai t has 

* exceeded the percent_torqye_value feedback from the engine by xX 

* for x ni 1 1 i seconds and will then set percent_torque_value_l iroi t 

* to 100% to cancel the recovery mode. 
* 

static void determine if recovery complete(void) 
< 

if ((net_engine_pct_trq > 10) && 

(desired engifwjct trq > (net engine jxt trq ♦ RECOVERY CANCEL OFFSET))) 

♦♦recovery cancel timer; 

> 

else 

recovery_cancel_timer 3 0; 

if ( < recovery jrancel_tiraer >= RECOVERY_CANCEL_T IME ) || 
(desired engine_pct trq == 100) ) 

< 

/* terminate the recovery mode */ 

desired engine_pct trq = 100; 

engine status * ENGINE RECOVERY MOOE COMPLETE; 

> 

> 



#pragma EJECT 



^ftrft'ft'ftft ft til Aft A Ai 



Iftft ftftft ft AA A ft ft ft ftftftftft ft ftft ftftft ft l 



Fftftftftftftftftftft 



* Function: cont rol _eng i ne_r ecovery_nonna I 

* Description: 

* Determine throttle command for recovery mode. 

* TORQUE_UMT it scaled as a BIN 8 number representing the percentage 

* of torque allowed to the engine during recovery. 

ft***********************^***********************************************/ 

static void control engine recovery normal (void) 
C 

engine control = SPEED TORQUE LIMIT; 
command_ETC1 = C_E T C 1 _NQRMAL ; " 

desired_engine_speed » 8031; /* torque limit only, max value for speed */ 
torque_limit ♦» RECOVERY JIATE JABLE [destination_gear+4] ; /* BIN 8 */ 
desired_enginej>ct_trq » <char)(torque_limit » 8); /* BIN 0 V 
determine if recovery completeO; 

> 



#pragma EJECT 



*************************** 



Function: control_engine_recovery_coasting 

Description: 

Determine throttlt coomand for coasting down shifts mode. 



static void control engine recovery coast ing( void) 
< 

register uint local_uint; 

if (sync on timer <= 300) 
C 

♦♦sync_on_t imer; 

engine_control = SPEED CONTROL; 
command_ETC1 » C_ETC1_NQRHAL; 

svnc_of f_t imer = 0; 

/** recov_coast_down_tmp1 = gos ♦ (dgos * K1) - THlG_DS_ENG_OECAY_RAMP **/ 

if (dgos < 0) /* get absolute value */ 

_cx 3 ( uint) -dgos; 
else 

_cx » (uint)dgos; 

asm mulu cxdx f #THL0 DS ENG DECAY K1; /* BIN 12 */ 

asm shrl "cxdx, #12; " ~ /* BIN 0 V 

if (_cxdx > 500) /* error check */ 

local_uint * 0; 
else 

localjjint = _cx; 

if (lpf_output_accel > 0) 

recovj:oast~down_tmp1 ■ (gos ♦ localjjint) - T H L 0J) S_E N G_D E C A Y_R AMP ; 
else 

recov_coast_down_tmp1 « (gos - local_uint) - THL0J>S_ENG_DECAY_RAHP; 

/*• recov_coast_down_tmp2 * desired_engine_speed - T H L 0_D S_E N G_D E C A Y_RAMP **/ 

recovj:oast_doWn_tmp2 « desired - engine_speed - THL0_0$_ENG_DECAY_RAMP; 

if (recov_coast_down_tmp1 < recov_coast_down_tmp2) 

desired_engine_speed = recov_coast_down_tmp1; 
else 

desired engine speed ■ recov coast down tmp2; 

> 

else 
i 

if (sync off timer <» 5) 
( 

♦♦sync off timer; 
engine'controt * TORQUE CONTROL; 
conraandETCI » C.ETCIJORMAL; 
desired'engins^pct trq * 0; 

> 

else 

sync on timer » 0; 

> 

if ((desired engine speed ♦ THL0 OS FINISHED DELTA) < gos) 
i 

/* terminate the recovery mode */ 

desired engine jxt trq » 100; 

engine status » ENGINE RECOVERY MODE COMPLETE; 

> 



#pragma EJECT 



* Function: control_engine_recovery 

* " *" 

* Description: 

* This function determines which type of throttle recovery should be 

* used. And initializes some of the variables that will be used. 
* 



static void control engine recovery(void) 
< 



if (<engine_status != ENGINEJIECOVERY MOOE) U 

(engine status 1= ENGINE RECOVERY MODE COMPLETE)) 

C 

engine_status » ENGINE_RECOVERY_M00E; 
desired_engine_pct_trq = 0; 
recovery_cancel_timer » 0; 
sync_on_timer = 0; 
sync'of f_timer = 0; 

/* kill pedal transition stuff */ 
posit ive_pedal_trans * FALSE; 
positive_pedal~trans "FALSE; 
zero_f lywheel^trq^timer =0; 
zero_f lywheel~trq_time = 0; 

if (gos < desired_engine_speed) 
desired_engine_speed = gos; 

/* set initial starting torque limit */ /* percent, BIN 8 V 

if ((actual_engine_pct_trq > needed_percent_for_zero_f lywheel_trq) && 
(pet _d etna nd_at_cur_ sp >5)) 
torque_limit = ((unsigned int)(actual_engine _pct_trq))«8; /* percent, BIN 8 */ 
else 

torque limit = ((unsigned int)(needed_percent for zero flywheel trq))«8; /* percent, BIN 8 */ 

> 



if ((destination_gear > ACT I VE_RECOVERY_GEAR ) && 
(pct_demand_at cur sp < 5) && 
(<sh7ft_type == CQASTJ)OUN_SHIFT) || 
(shift type == UPSHIFT))) ~ 

C 

control engine recovery coast ing(); . 

> 

else 
{ 

control engine recovery normal (); 

) 

> 

#pragma EJECT 



* Function: controMntent_to_shift 
* 

* Description: 

* This function 

static void controMntent_to_shift(void) 



if (engine control I* TORQUE CONTROL) 
C 

desired engine_pct trq = actual engine_pct trq; 

> 

engine control = TORQUE CONTROL; 
coninand_ETC1 = C_ETC1_OVERSPEED; 

positive_pedal_trans = TRUE; /* allow for recovery mode */ 

if ((desired_engine__pct_trq >= intent_ramp_of f_rate) && 

(actual engine_pct trq > intent final_pct trq)) 

< 

desired enginejxt trq -« intent ramp off rate; 

> 

else 
C 

desired engine_pct trq = intent final_pct trq; 

> 



#pragma EJECT 



* Function: control_engine_fol lower 

* "~ ~ 

* Description: 

* This function sets the override_control_mode to no over ride so that 

* the engine follows the accelerator demand. 
* 

static void control engine follower (void) 
< 

#define POSITIVE PEDAL TRANSITION TINE 25 /* 250 MSEC V 
#define NEGATIVE~PEDAL~TRANSITIO*f TIME 40 /* 400 MSEC V 



engine_status = ENGINE_F0LLOWER_MO0E; 

if ((intent_to_shift TRUE) && . 
(shift_7n_process == FALSE) && V 
(desired gear ! = destination gear selected)) * 

C 

control intent to shiftO; 

> 

else 
C 

if ((accelerator_pedal_posi tion >= 5) && /* positive pedal transition */ 
(accelerator_pedal jxsi tion_old <= 4) && 
(low speed latch == FALSE))" 

< 

posi tive_pedal_trans = TRUE; 

zero_f lyvheel trq_time = POSITIVE PEDAL TRANSITION TIME; 
if (zero_f lywheel_trq_timer >= NEGAT I VE~PEDAL_TRANS I T I 0M_T I ME ) 
zero fTywheel trq_timer = 0; 

> 

else 
( 

if ((accelerator_pedal _posi tion <= 4) && /* negative pedal transition */ 
(accelerator_pedal_posi tion_old >= 5) && 
(low speed latch == FALSE)) 

{ 

zeroj lywheel_trq_time = NEGAT I VE_PEDAL_TRANS I T ION_T I ME ; 
zero flywheel trq_timer = 0; 

> 

> 

if ((zero_f lywheel_trq_t imer < zero_f lywheel_trq_time) && 

(current gear > 1) && (current gear < 10) && (low speed latch == FALSE)) 

( 

engine control = TORQUE CONTROL; 
commandJTCt = CJTC1 J)VERSPEED; 
desired_engine_pct_trq » needed_percent_for_zero_f lywheel_trq; 

if (actual_engfne _pct_t rq < (needed _percent_f or_zero_f lywheel_trq ♦ 5>); 
zero flywheel tr^tToer**; 

> 

else 

C 

if ((positive_pedal trans « TRUE) U (low speed latch » FALSE)) 
( 

positive_pedal_trans » FALSE; 

engine_conmands * ENGINE_RECOVERY; /* engine: finish torque return 

control engine recoveryO; 

> 

else 
C 

engine control = OVERRIDE DISABLED; 
command ETC1 * C ETC1 NORMAL; 

> 

> /* end no intent to shift V 

> 

fpragma EJECT 



* Function: control_engine_idle 

* "~ "~ 

* Description: 

* This function sets the engine controls for the idle mode. 
* 

static void control engine idle(void) 
C 

engine control a OVERRIDE DISABLED; 
commandJTCI * C_ETC1_N0RMAL; 

engine status * ENGINE IDLE MODE; 

> 



tfpragma EJECT 



* Function: control_engine_start 

* Description: 

* This function sets the engine controls for the start mode. 
* 

static void control engine start(void) 

engine control * OVERR IDE J) I SABLED ; 
command_ETC1 = C_ETC1_NORMAl; 

engine status = ENGINE START MODE; 

> 



#pragma EJECT 



* Function: control_trigirie_ca!pres8ion_brake 

* Description: 

* This function controls the state of the engine compression brake. 

* The brake can be used coring upshifts to speed up the dec el rate of 

* the input shaft. 

•******************#*«**************************************************/ 

static void control engine compression brake(void) 
i 

if (engine communication active && 

(engine~status « ENgTmE SYNC MOOE) && 
<shift_type -» UPSHIFT) U 
<input_speed_filtered > (gos ♦ 150)) && 
(destination^gear > 1) && 
(destination~gear < 7) U 
(engine_brake_avai lable) && 

((dos_predicted < dosjjrdtd I in no jake) || eng brake assist)) 

< 

eng brake assist * TRUE; 

> 

else 
t 

eng brake_assist = FALSE; 

> 



eng brake assist = FALSE; /* force false state for now */ 

> 



#pragma EJECT 



* Function: deteraur»_gos 

* Description: 

* This function mulitplies the destination gear ratio tiroes the 

* output shaft speed for use in the DRl_CM0S module. 

* gos * (g)ear * (Output (s)peed 
* 

************************************************************************/ 

static void determine_gos(void) 



/*** determine gos for the destination_gear ***/ 
_bx ■ trn_tbl.gear_ratio[destination_geer ♦ GR_OFS]; 
~cx * output_speed_f i I tered; /* output speed"*/ 
asm mutu cxdx, bx; /* BIN 8 result */ 

asm shrl ~cxdx, #8; /* make BIN 0 V 

gos » _cx; /* BIN 0 V 

_cx = *(uint * )& I pf _output_acce I; 
asm mul _cxdx, _bx; 
asm div _cxdx, #256; 
dgos « *?int *)&_cx; 

gos_signed = (signed intXgos); /* allow signed math in other functions*/ 

/*** determine gos for the "current_gear H ***/ 
_bx = trn_tbl .gear_rat io[current_gear ♦ GR_0FS3; 
_cx « output_speed_f i I tered; /* output speed */ 
asm mulu cxdx, bx; /* BIN 8 result */ 

asm shrl "cxdx, #8; /* make BIN 0 */ 

gos_current_gear = _cx; /* BIN 0 */ 



#pragma EJECT 



* Function: c*ter»ine_shiftability_variables 

* ™ ™ 

* Description: 

* This function filters both the output speed and the rate of change of 

* the output speed for use in the shiftability function. This function 

* also calulates the rate of change of the input shaft based on the 

* filtered value for the rate of change of the output shaft. 
* 

* The filters used in this function are required to get a high level of 

* stability. The BIN 8 filter used here will provide a much smoother 

* output which is needed to filter out drivel ine oscillations. 
* 

* Note: These calculations were placed in this module because it is 

* called on a regular 10 msec interval. These calculations should 

* be placed in the pr_i_s_i.c96 nodule once shiftability is proven. 

* These variables are used in the SEL_GEAR.C96 module. 



static void determine shiftability van* ables< void) 



/* LPF coefficients: 


exp(-wT), 


, T=0.010s 


*/ 




#define OS LPF 


248 


/* 


0.9691 


BIN 8 (0.50Hz) 


V 


#define DOSFK1 


249 


/* 


0.9727 


BIN 8 (0.44Hz) 


V 


#define EPTFK1 


252 


/* 


0.9844 


BIN 8 (0.25Hz) 


V 


^define IS FK1 


236 


/* 


0.9219 


BIN 8 (0.??Hz) 


*/ 


#define 0S~FK1 


236 


/* 


0.9219 


BIN 8 (0.??Hz) 


*/ 


^define 0ISFK1 


236 


/* 


0.9219 


BIN 8 (0.??Hz) 


*/ 


#define LOU RANGE 


3197 


/* 


3.1224 


BIN 10 


V 


#define BIN~10 


1024 











static long dos_f i ltered_bin8; 
static int ept_7i ltered_bin8; 

unsigned long is_f i ltered_partial_1; 

unsigned long is_f i ltered_partial_2; 

unsigned long os~f i ltered_partial~1; 

unsigned long os_f i ltered_partiel_2; 

/** create lpf_output_accel **/ 



_bx = *(uint *)&output_speed_accel; 
~cx = *(uint *)&lpf_output_accel - _bx; 
asm mul _cxdx, #OS_LPF; 
asm div "cxdx, #256; 
_bx _cx; 

Tpf_output_accel = *(int *)&_bx; 



/* bx = x(n), BIN 0 V 

/* "cx s y(n-1) - x(n), BIN 0 */ 

/* cxdx * **(...), BIN 8 */ 

/* make BIN 0 */ 

/* _bx ■ x(n) ♦ K*<...), BIN 0 

/* save acceleration */ 



dosjiltered = (dos_f i Itered * 0OSFK1) ♦ (lpf_output_accel * (1-0OSFK1) *V 



_cxdx « *(ulong *)&dos_f i ltered_bfn8; 
asm shral cxdx, #2; 
asm mul _cxdx, JIDOSfKI; 
asm shral _cxdx, #6; 
dos_filtered_bin8 » *<long *)l_cxdx; 

cx » *<uint *)&lpf output accel; 
~bx * 256 * 00SFK1;~ 
asm mul _cxdx, _bx; 
dos_f ilteredj3in8 ♦» *<long *)&_cxdx; 



/* BIN 8 V 
/* BIN 6 ( cx) */ 
/* BIN 14 */ 
/* BIN 8 */ 
/* save partial result */ 

/* BIN 0 */ 
/* 1 BIN 8 - D0SFK1 */ 
/* BIN 8 */ 

/* sum is final result */ 



dos_filtered * ( int)(dos_f i ltered_bin8 » 8); /* BIN 0 */ 

/** eng_percent torque filtered » (eng_percent torque filtered * EPTFK1) ♦ 
<net~enginejxt_trq * (1-EPTFK1) **7 



_cx ■ *<uint *)&ept_filtered_bin8; 
asm mul _cxdx, ttPTFKI; 
asm shraT .cxdx, #8; 
ept_filterid_bin8 * *<iht *)&_cx; 

cx * net engine_pct trq; 
Jw » 256"- EPTFK1; " 
asm mul _cxdx, _bx; 
ept_f iltered_bin8 ♦» *<int *)4_cx; 



/* BIN 8 V 
' /• BIN 16 V 

/* BIN 8 */ 
/* save partial result V 

/* BIN 0 */ 

/* 1 BIN 8 - EPTFK1 V 
/* BIN 8 V 

/* sum is final result V 



/* 


BIN 4 


V 


/* 


BIN 8 


V 


/* 


BIN 12 


V 


/* 


BIN 8 


V 


/* 


BIN 8 


V 


/* 


BIN 0 


V 


/* 


1 bin a - 


IS FK1 */ 


/* 


BIN 8 


V 


/* 


BIN 8 


*/ 



engj»rc«nt_torqi»_f i I tared ■ (cherXept.f ilttred_bin8 » 8); 

/** input.shaft.accel.calculated • dos_f iltered * gear.ratio *V 

cx « tm tbl.gear rat ioCdesti nation gear ♦ GR OFS]; /* BIN 8 */ 
~bx ■ *(uTnt *)&dos filtered; " /* BIN 0 */ 

asm mul cxdx, bx;" /* BIN 8 */ 

asm shral _cxdx, #8; /* BIN 0 V 

input.shaft.accel.calculated 3 # (int *)&_cx; 

/*** calculate filtered input and output shaft speeds for AutoSplit ***/ 

/*** determine os.based_on.rcs variable ***/ 
if (output speed <~1000)" 
C 

bx = aux speed; /* BIN 0 */ 

"cx * BIN~10; /* BIN 10 */ 

"ax a L OUTRANGE; /* BIN 10 */ 

asm mulu .cxdx, _bx; /* make aux.speed BIN 10 */ 

asm divu .cxdx, _ax; /* divide by low range BIN 10 */ 

os based on res ■ cx; /* BIN 0 */ 

> 

/** input speed filtered « (input speed filtered * IS FK1 ) ♦ 
(input.speed * (1-IS.FK1) **/ 

ax = (is filtered bin8 >> 4) 
"cx = IS.FK1 ; 
asm mulu .axbx, _cx ; 
asm shrl _axbx, #4 ; 
is.f i ltered_part ial_1 = .axbx 

cx = input speed ; 
%x » 256 -"iS.FKI ; 
asm mulu .axbx, _cx ; 
is.f i ltered_part ial_2 » _axbx 

is_f i ltered_bin8 * is.f i ltered.partial.1 ♦ is.f i I tered_partial_2 ; 
input.speed.fi I tered = (unsigned int)( is.f i Uered.bin8 » 8); /* BIN 0 

/** output speed filtered = (output speed filtered * OS FK1 ) ♦ 
~ (output.speed * (T-OS.FK1) **/ 

ax = (os filtered bin8 » 
"cx = 0S.FK1 ; 
asm mulu _axbx, _cx ; 
asm shrl .axbx, #4 ; 
os.f i ltered_partial_1 = _a 

if (output.speed < 250) 
_cx » os^based.on.rcs; 
else 

.cx a output.speed ; 

_ax » 256 • OS_FK1 ; 
asm mulu .axb*7 cx ; 
os.f iltered.partTal_2 » .a 

os.f iltered.bin8 » a»_fUtered _partial_1 ♦ os.f i ltered_partial.2 ; 

output.speed.fi I tered » (unsigned intXos.f i ltered_bin8 » 8); /* BIN 0 */ 

/** input_speed.accel.fi I tered ■ ( input.speed.accel.f i Uered * DISFK1) ♦ (input.shaf t.accel * (1-0ISFK1) •*/ 

.cxdx * *(ulong *)&dis filtered bin8; /* BIN 8 V 

asm shral cxdx, #4; " /* BIN 4 ( cx) •/ 

asm mul cxdx, #DISFK1; /* BIN 12 " V 

asm shraT .cxdx, #4; /* BIN 8 */ 

dis.fi I tered.binS « *(long *)&_cxdx; /* save partial result */ 

cx » *(uint *)&input speed accel; /* BIN 0 */ 

.bx * 256 - 0ISFK1; " /* 1 BIN 8 - DISFK1 V 

asm mul .cxdx, .bx; /* BIN 8 V 

dis.fi I tered.bin8 ♦» *(long *)&_cxdx; /* sum is final result V 

input_speed_accel.fi I tered * ( intXdis.fi I tered_bin8 » 8); /* BIN 0 V 





/* 


BIN 4 


*/ 




/* 


BIN 8 


*/ 




/* 


BIN 12 


*/ 




/* 


81N 8 


V 




/* 


BIN 8 


V 




/* 


BIN 0 


V 




/* 


BIN 0 


V 




/* 


1 BIN 8 - 


OS FK1 */ 




/* 


8IN 8 


V 


* 


/* 


8IN 8 


V 



/** determine state of clutch **/ 

if (engine_speed > input_speed) 

clutch_8Up_speed ■ engine_speed - input_speed; 
else ~ 

clutch_slip_speed = input_spe«d - eogine^speed; 

if (clutch slip speed > 200) 
clutch_state~* DISENGAGED; 
else 

if ((engine_speed > 800) && (low_speedJatch == FALSE)) 
clutch_state = ENGAGED; 

/** determine desired percent torque needed for zero torque at flywheel **/ 
#if (0) 

if ((accelerator_pedal jjosi tion < 2) W 
(clutch_state « ENGAGED) U 

(current_gear « 0) && ^ ^- 

(input speed filtered < 1100) && ^ - 

(((engine^control ==« OVERRIDEJ) I SABLED) U c 
(low_speed_latch == FALSE) ll (current_gear 0)) || 
(output_speed_f iltered < 20))) 
percent torque accessories 3 eng_percent torque filtered; /* get at idLe */ 
#endif 

percent_torque_accessories = 3; /* force value for now */ [ c 
needed_percent_for_zero_f lywheei_trq = pe rc en t_torque_acces series ♦ / £ c / 



nominal_frictionjxt_trq; \ *~ 

overall_error = ((signed int)( input_speed_f i I tered) - (signed int)(gos)); 

> 



#pragma EJECT c*: 5 '^ v 



% 4 



* 

* Function: coamunicate_w1 thjjrivellne 

* Description: 

* This is the periodic task which controls the actions of the engine 

* by defining mode of control and controlling speed and torque output 

* levels depending upon the control function being performed. This task 

* is also intended for control of other driveline components (not yet 

* named) which may be available in the future. 
* 

void communicate with drivel ine( void) 

i n i t i a I i ze_dr i ve I i ne_da t a( ) ; 

x start _periodic(); 

while (1) 

C 

cont rol_eng i ne_compress i on_brake( ) ; 

determine_gos(); /* calculate <G)ear times the (Output (S)haft V 

determine_shif tabi I ity_variables(); 

if (engine communication active) 
( 

if ((desired_sync_test_mode == TRUE) && (output_speed_f iltered < 100)) 
control _eng i ne_sync_tes t jnode ( ) ; 

else 

( /* start of normal engine_commands switch */ 

switch (engine commands) 
C 

case ENGINE_PREDIP: 

cont ro l_eng i ne_predi p( ) ; 

breaks- 
case ENGINE_SYNC: 

cont ro I _eng i ne_sync ( ) ; 

break; 

case ENG I NE_RECOVERY : 

control_engine_recovery( ); 
break; 

case ENGINEJDLE: 

con t r o l_eng i ne_ i d I e( ) ; 
break; 

case ENG1NE_START: 

cont ro l^eng i ne_s tar t () ; 
break; 

case ENG I NE_FOL LOWER : 
default: 

control_engine_fol lower( ); 

break; 

> 

> /* end of normal engfne_conmands switch */ 

switch (eng brake command) 
( 

case ENG_BRAKE_OFF: 

retarder_control = TOROUE_CONTROL; 
desired_retarder _pct_trq « 0; 
break; 

case ENG_BRAKE_FULL: 

retarder_control = TORGUE_CONTROl; 
desired_7etarder jxt_trq = -100; 
break; 

case E NG_BRAKE_ IDLE: 
default:" 

retarder^control » OVERRI0E_0ISABLED; 



desired retarderjxt trq ■ 0; 
breek; " 

> 

> 

else 

engine_status ■ E*GIN£JIOTJ>RE$EMT; 

/* store old value for use in "control_engine_fol lower" function 
accelerator _pedal_position_old ■ accelerator_p*dal_position; 

x_sync j>er i od i c (US_PER_100P ) ; 



end_periodicO; 



* Unpublished and confidential. Not to be reproduced, 

* disseminated, transferred or used yithout the prior 

* written consent of Eaton Corporation. 
* 

* Copyright Eaton Corporation, 1994 

* All rights reserved. 



* Filename: p*iO_t.c96 (AutoSplit) 
* 

* Description: 

* The modules contained within this compilation unit are 

* intended to implement functionality of the Process Systeai 

* Input Signals task defined in the design document ion. 

* In general. Analog to digital conversions are started on 

* PortO. The necessary hardware initialization and variable 

* initializtion for inputs on PortO are handled. The switch 

* inputs are captured to avoid conflict with AO conversions 

* and all necessary scaling and error check for these inputs 

* is conducted. 
* 

* Part Number: <none> 
* 

* $Log: ? 
* 

* Rev 1.1 19 May 1994 11:32:26 markyvech 

* Converted for use with AutoSplit ECU2 
* 

* Rev 1.0 12 Sep 1991 08:04:26 amsallen 

* Initial revision. 
* 

****************************************^^^ 



* Header files included. 



^include <exec.h> /* 

#include <kr_sfr.h> /* 

^include <kr_def.h> /* 

^include <c_regs.h> /* 

^include <wwslib.h> /* 

#include "p^s^s.h" /* 

#include "sysgen.h" /* 



executive information 

KR special function registers 

KR definitions 

KR internal register definitions 
world wide software definitions 
process system input signal information 
defines the task names and priority 



*/ 
*/ 
*/ 
V 
*/ 
V 
V 



* #defines local to this file. 
* 

************************************** 



******************************/ 



/* S tar t_AD_Convers ions */ 

#define ENABLE AO PTS SCAN 0X20 
#define ENABLE AO ISR 0X20 



#define PER 1 00 10U 
#define RKM PERIOD 50U 



/* 10ms V 
/* 50ms */ 



/**********************************•*******««-"«««" w 
* 

* Constants and variables declared by this file. 
* 

************************************************************************/ 

/* Analog Inputs on PortO */ 

int ignition_volts; 
int splitter_position; 

#define I GN I T I QN_VOLTS_CHANNEL_RESULT 1 



#def ine SPLITTER_POS_CHANMEL_RESULT 
#define CONVERSION^ I ME Oxef 

#define CONVERT_8 8 

#define CONVERT IGNITIQNJ/OLTS 
#define UNUSED CHANNEL J 
^define UNUSE0"CHANNEL_2 
#define UNUSED~CHANNEL_3 
^define UNUSED CHANNEL.4 
^define UNUSED j:HANNEL_5 
^define UNUSED~CHANNEL 6 
#define CONVERT_SPLITTER_POS 
#define STOP CONVERSION 
tfdefine START CONVERSIONS 



15 



/* for state tiae « 1^ nsec: V 
/* sample time * 3.6250 usee */ 
/* convert time * 20.1875 usee */ 
/* scan and convert 8 channels */ 



( NORM MODE 
(~NORM~MOOE 
(~NORM~M0OE 

("norm'mooe 

<"nORM~MOOE 

<"nqrm~mooe 
<~norm~mooe 
<~norm~mooe 

0x00 
ad conmand 



10 BIT M00E 
"l0~BIT~MOOE 

"io"bit~mooe 

JO~BITJ«30E 

"io"bit"mooe 

"lO r 8IT"MOOE 
~10"bIT"mOOE 

"io~bit"mgoe 



STRT 
STRT 

"strt' 

"STRT 
"STRT 

"strt 
"strt 
"strt 



CONV 
CONV 
"CONV 
CONV 
"CONV 
"CONV 
"CONV 
"CONV 



CHNL 


0) 


"chnl" 


1) 


"chnl" 


2) 


~chnl| 


"3) 


"chnl] 


4) 


"chnl" 


5) 


"chnl" 


6) 


"chnl" 


"7) 



= CONVERT IGNITION VOLTS 



/* table containing AD_result and AD_Conmand values after PTS scan */ 
unsigned int AD JT abl e 06] ; 

/* AD SCAN PTS CONTROL BLOCK LOCATION */ 

ad _ptsb type AD Con Block; 

Spragma Tocate(AD Con Block=0x01F8) /* locate pts control block V 

#pragma pts(AD_Con_Block * 5) /* set pts vector 5, A/D done V 



#pragma eject 



* Function: Initial ize_Input_Signals 



* Description: 

* This routine initializes the A/O converter 

* run * " rtL " " *"~ 



routine initializes me a/u convener. It sets the A/0 to 
rui in PTS scan mode, lObit conversion. The PTS control block is 
set up and the Conmand/ result table is initialized. 



void InitializeJnput_Signals(void) 

/* if we knew when the first speed packet arrived, we could initialize 
with those values, since we don't, be safe and use zero. */ 



AD TableCO] 

AD Tabled] 

AD~Table[2] 

AD~Table[3] 

AD"~Table[4] 

AD~Table[5] 

AD~Table(6] 

AD~Table[7] 

A02TableC8] 

AD Table [9] 

AD_Table(10] 

AD Tabled!! 

AD Table[12] 

AD~T able 113] 

AD~Table(K] 

AD"Table[153 



s UNUSED_CHANNELJ; 
= OxOOOOj 

= UNUSED_CHANNEL_2; 
= OxOOOOj 

= UNUSED_CHANNEL_3; 
= OxOOOOj 

= UNUSED_CHANNEL_4; 
= 0x0000; 

= UNUSED CHANNEL 5; 
= 0x0000; 

= UNUSED_CHANNEL_6; 
= 0x0000; 

= CONVERT_SPLITTER_POS; 
= 0x0000; 

= STOP_CONVERSIQN; 
= 0x0000; 



AD Con Block.cnt - CONVERT 8; 
AD~Con~Block.ctrl = _AD_MOOE |_S_D_UPDT; 



AD Con_Block.s_d = ADJTable; 
AD~Con_Block.reg = (void *)&_ad_result; 

ad time = C0NVERSI0N_TIME; 
"ad'test = NO OFFS; 
jjts_select &= "(_PTS_AD0ONE_BIT); 



/* place holder for channel 1 

/* I GN I T I ON_VOL T S_C HAN N E L_RE SUL T 

/* place holder for channel 2 

/* UNUSEDJ .RESULT 

/* place holder for channel 3 

/* UNUSED_2_RESULT 

/* place holder for channel 4 

/* UNUSED_3_RESULT 

/* place holder for channel 5 

/* UNUSED_4_RESULT 

/* place holder for channel 6 

/* UNUSEDJ_RESULT 

/* Command convert splitter pos 

/* UNUSED_6_RESULT 

/* command" to Stop conversions 

/* SPL I TTER_POS_CHANNEl_RESULT 



V 
V 
V 
V 
V 
V 
V 

*/ 

V 

*/ 
*/ 

V 
V 
V 
V 
V 



/* A/D mode bits 0,1 of PTSJTONTROL 
/* always set to 3h bit 2 = 0 
/* S/0 update at end of cycle 
/* bit 5 always 0 
/* Set mode for AD SCAN 

/* Load s_d with AD_Table address 
/* Load reg with ADJlesult address 



/* Disable test mode */ 
/* Disable AO PTS */ 



#pragma eject 



* Function: ADJSR 

* "~ 

* Description: 

* This int erupt service routine resets the PTSCOUMT, pts_sd and pts_reg 

* for another PTS_Scan A/0 cycle. It also readies a task to run when 

* a PTS cycle has completed. 
* 

#pragma interrupt <AD_ISR=5) 

void AO ISR(void) 

< 

x start isrO; 

AD Con Block.cnt = CONVERT_8; /* Reset pts count for next cycle */ 

AD~Con~Block.s_d * AD_Table; /* Reset table pointer to start of table 

AD~Con~Block.reg = (void *)&_ad_result; 

xj-eady(PROCESSJNPUT_SIGMALS); /* Ready pr_s_i_s task */ 

x~end isr<); 

> 



#pragma eject 



* 

* Finction: Start_AD_Conversions 

* Description: 

* This function initializes the input signal processing function 

* if it has not already been done, and then startes the PTS Scan 

* of the AD channels by sending the appropriate conmand to the 

* ad_command register. 

void Start AD Conversions (void) 
( 

if (( int mask & ENABLE AD ISR) == 0 ) 

InTtialize_lnput_Signals(); /* Set up AD table for PTS * 

_pts select |= ENABLE AD PTS_SCAN; 
Jntjnask |= ENABLE JUMSR; 

x _pr earm_s t i mu I us O ; 

START_C0NVERSIONS; /* Start a conversion, initiate the PTS cycles */ 
x wait stimulusO; /* ADJSR will ready task when PTS is complete */ 

> 



#pragma eject 



^•***#»** **************************************************************** 

* 

* Function: process_input_signals 
* 

* Description: 

* This is the periodic task which starts the analog conversions on Portl 
* 

void process_input_signals(void) 
C 

x start_periodic(); 

while (1) 

i 

Start_AD_Conversions( ); 

/* Clean up and scale AD values */ 

ignition volts = sea I e_sys t em_ad_i nput s ( I GN I T 1 0N_V0LT AGE ) ; 
splitterjx>sition = sea I e_sys t enTad_ inputsC SPLIT TER_POS I T I OW ) ; 

/* x syncj)eriodic(PERIOO*1000); */ 
x sync _periodic(RICMJ>ERI00*1000); 

) 

x end_periodic(); 

> 



#pragma eject 



* Function: seal e_system_ad_ inputs 
• 

* Description: 

* This function removes the channel, status and reserved bits from 

* the ran AD values, and performs all necessary scaling and error 

* checking for the analog inputs on PortO. 
# 

int scale svstem_ad_ inputs (char Channel) 
i 

int Scaled Value = 0; 

uint voltsj>er bit; /* BIN 16 */ 

uint units_per bit; /* BIN 16 */ 

#define TUELVE~VOLT FULL SCALE 22.46 /* volts V 

#define TUENTY~FOUR V0LT_FULL_SCALE 40.49 /* volts V 
#define 01 STANCE FULL.SCALE 100 /* */ 



volts _per bit = (uint)((TWELVE VOLT FULL_SCALE*65536/1023)*0.5); 
units _per~bit = (uint)((DISTANCE_FULL_SCALE*65536/1023)*0.5); 

switch (Channel) 
i 

case 0: /* IGNITION VOLTAGE */ 

cx - AO TableCIGNITION VOLTS CHANNELJIESULTJ » 6; 
a"sm mulu" cxdx, volts_per_bi t; /* volts, BIN 16 (_dx, BIN 0) V 
Scaled J/aTue = *(int *)&_dx; 
break; 

case 1: /* UNUSED */ /* to be completed when a product requires it 
ScaledJ/alue = (0); 
break; 

case 2: /* UNUSED */ /* to be completed when a product requires it * 
ScaledJ/alue = (0); 
break; 

case 3: /* UNUSED •/ /* to be conpleted when a product requires it * 
ScaledJ/alue = (0); 
break; 

case 4: /* UNUSED */ /* to be completed when a proofcet requires it * 
ScaledJ/alue = (0); 
break; 

case 5: /* UNUSED */ /* to be completed when a product requires it * 
ScaledJ/alue = (0); 
break; 

case 6: /* UNUSED */ /* to be completed when a product requires it * 
ScaledJ/alue = (0); 
break; 

case 7: /* SPLITTER POSITION */ 

cx = AD TableCSPLITTER POS CHANNEL_RESULT] » 6; 
asm mulu" cxdx, uni tsj*rj>i t; /* distance, BIN 16 (_dx, BIN 0) 
Scaled J/aTue = *(int *)&dx; 
break; 

default: 
break; 

> 

return (ScaledJ/alue); 



Unpublished and confidential. Not to be reproduced, 
disseminated, transferred or used without the prior 
written consent of Eaton Corporation. 

Copyright Eaton Corporation, 1993-94. 
All rights reserved. 



* Filename: se* _$ear.c96 (AutoSplit) 
* 

* Description: 

* This module is the periodic task "selec^gear". It assigns values 

* to destination_gear_selected as a function of selectedjnode, input 

* and output shaft speeds, and driver selections (dccjnanuaMnput). 

* Shift parameters are in the data structure shf_tbl. Before setting 

* destination_gear_selected, gears are checked with avai lable_gear(). 
* 

* Part Number: <none> 
* 

* SLog: R:\ashift\vcs\sel_gear.c9v $ 
* 

* Rev 1.8 21 Feb 1994 15:07:14 schroeder 

* Replaced shiftabilityjnode with new flag, engine_brake_avai lable. 
* 

* Rev 1.0 29 Jul 1993 16:40:26 schroeder 

* Initial revision. 
* 

/************************************************************************ 
* 

* Header files included. 



U include <exec.h> 
#include <c_regs.h> 
^include <wwslib.h> 
U include "cont_sys.h" 
#include " con] 1939. h» 
^include »drl_cmds.h» 
^include "sel gear.h" 
#include "shf_tbl .h» 
include "trn tbl.h" 
#include "calcjspd.h" 
#include "trns_act.h" 
#pragma noreentrant 

/******************** 
# 

* #defines local to this file. 
* 

************************************************************************/ 

#def ine US_PER_lOOP 40000U 
#define I N I T I AL_START_GEAR 1 

/************************************************************************ 

* i 

* Constants and variables declared by this file. 
* 



/* executive information */ 
/* c registers */ 

/* contains common global defines */ 
/* control system */ 

/* defines interface to j1939 control module V 
/* drivel ine commands information */ 
/* select gear */ 
/* shift table definition */ 
/* (system) transmission table definition */ 



/* public */ 



char destination_gear_selected; 

char destination_gear; 

char f I ash_desi red_al lowed; 

char desired_gear; 

char desired_gear_dn; 

char desi red_gear_up; 

uchar coast ing_latch; 

uchar sel_gear_cntM; 

uchar sel~gear_cntr2; 

uchar sel_gear_cntr3; 



/* debug use - delete later */ 
/* debug use - delete later */ 

debug use - delete later */ 
debug use - delete later */ 
debug use - delete later */ 



uchar shif t_init_type; 

uint Ipf output speed; 

int dosj>redicted; /* BIN 0 V 

int dosj>rdtd_li»_noJake; /* BIN 0 */ 



/* local V 

/* filter weights for the "mda" output speed filter */ 
static register uchar w1; 
static register uchar w2; 
static register uchar w3; 
static register uchar w4; 

/* shift table (define and extern in shf_tbl.h) V 
struct shf_tbl_t shf_tbl; 

/* default shift table values V 
const struct shf tbl_t ini_shf_tbl » 
( 

1200, /* aut_dwn_rpm */ 

1000, /* autjnin_dwn_rpm */ 

1700, /* aut~up_rpm */ 

0, /* best_gr_offset */ 

50, /* dwnj>ffset_rpra */ 

100, /* dwn~reset_rpm */ 

400, /* dwn~timer~offset_rpm */ 

40, /* hysteresis_rpra *7 

1850, /* man_dwn_sync_rpra V 

700, /* man~up_sync_rpni */ 

1900, /* rated_rpm *7 

150, /* up_offset_rpm */ 

125, /* up~reset_rpm */ 

200, /* up~timer_offset_rpm V 

0, /* dwn_acceT */ 

8, /* up_accel */ 

3000, /* offset_time */ 
(uint)CO. 25*256), /* aut_upjxt */ 

10, /* min_output_spd */ 

1 # /* max~start_gear */ 

0, /* padbytel */ 

196, /* k1_ability, min-ft/rev-sec t BIN 12 */ 

431, /* ax7e_ratio_cal, BIN 7 */ 

383, /* gcw k1, rev/sec-min-f t, BIN 0 */ 

2437, /* gcwjc2, rev/sec"2, BIN 7 */ 

1325, /* calc_start_point, rpm, BIN 0 */ 

107, /* k6_ability, min- Ib-f t-sec/rev, BIN 8 V 

1500, /* auto_up_lo_base, rpm, BIN 0 */ 

1100, /* auto~dn~lo~base, rpm, 8IN 0 */ 

100, /* auto~rtd_offset, rpm, BIN 0 */ 

1000, /* lowest_engagej-pm, BIN 0 */ 

0, /* padwordl */ 

0 /* padword2 */ 

>; 



/* local initialized at start of task by select_gear V 

/* shift points with anti-hunt offsets; referenced by autojiownshift and 

auto_upshift; set by get_automatic_gear and select_gear */ 
uint upshift _point; 
uint downshift_point; 

/* lower limit for gear selections V 
char lowest_forward; 

/* indicate direction of a get_automatic_gear shift; referenced by 

get_manual_gear; cleared by~select_gear when shift complete */ 
char automat ic_sip; 

/* used in the determination of shift_points based on throttle position * 
static uint auto_up_rpm; 
static uint auto_dn_rpm; 
static uint auto_up_of fset_rpm; 
static uint auto_dn_of fset^rpm; 



/* delay counter for ant i- hunt */ 
static uchar antihunt_counter; 



/* gross contained weight calculations */ 

#def ine ZERO SPEED TIME LIMIT 4500 /* 3 ann a 0.040 period V 

#define VALID OLD DATA TIME 100 /* 4 sec 3 0.040 period V 

#define MAX VEHICLE WEIGHT 100000 /* 100,000 lbs V 
#define DO$~OFF$ET TNIT 48 

#define ENG~DECEL LOU LIMIT -350 /* rpcn/s V 

^define ENGJ)ECEL~LPF 224 /* exp<-2pi(0.53Hz)(0.Q40s>> = 0.875 (BIN 8) */ 

#pragma eject 



* Function: mda_output_f i Iter 
* 

* Description: 

* This is a one pole IPF with a variable coefficient. The magnitude 

* of the coefficient is directly related to the acceleration content 

* of the speed sample and the frequency. 
# 



static void mdajxjtput_f i Iter (void) 
C 

#define K1 8 
#define K2 24 
fciefine K3 48 
#define K4 160 

static register uint osjietta_speed; 
static register uchar weight; 

if (Ipf output_speed > output_speed) 

os_delta_speed = lpf_output_speed - output_speed; 
else 

os_delta_speed = output_speed - lpf_output_speed; 

if Cos delta speed <= K1 ) /* delta <= 200 rpm/s V 

( 

if (w1 > 1) --w1; 
if (w2 < 5) ++w2; 
if <w3 < 6) ++w3; 
if (w4 < 7) ++w4; 
weight = w1; 

else if Cos del ta_s peed <= K2) /* 200 rpm/s < delta <= 600 rpm/s V 

if (w1 < 4) ++w1; 
if (w2 > 2) --w2; 
if (w3 < 6) ++w3; 
if (w4 < 7) ++w4; 
weight = w2; 

else if (os delta_speed <= K3) /* 600 rpm/s < delta <= 1200 rpm/s V 
C 

if (w1 <"4) ++w1; 
if (w2 < 5) ++w2; 
if (w3 > 3) --w3; 
if (w4 < 7) *+w4; 
weight - w3; 

else if (os delta speed <= K4) /* 1200 rpm/s < delta <= 4000 rpm/s V 
C 

if (w1 < 4) *+w1; 
if (w2 < 5) *+w2; 
if (w3 < 6) **w3; 
if (w4 > 3) —w4; 
weight = w4; 

else /* * 000 rpM* < delta */ 

C 

if (wl < 4) -m-wI; 
if (w2 < 5) *+w2; 
if (w3 < 6) ♦*w3; 
if (w4 < 7) *+w4; 
weight = 7; 

> 

Ipf output speed = lpf_output_speed ♦ 

7output~speed » weight) - ( lpf_output_speed » weight); 

> 

tfpragma eject 



* Function: new_input_speed 
ription: 

A utility function th; 

"gear" was engaged with the present output shaft speed 



Description: 

A utility function that returns the input shaft speed expected if 



static uint new_input_speed(char gear) 

/* new input speed = Ipf _output_speed * gear-ratio */ 
ax = trn tbl.gear ratioCgear + GR.OFS]; /* BIM 8 */ 

asm mulu "axbx, Ipf output_speed; /* BIN 0*8=8 (jaxbx) V 

asm shrl >bx, #8;" >* B1M 8>>s ° <- ax> *' . 

return _ax; 



#pragma eject 



* Function: auto_upshift 



* Description: 

* This boolean function returns true when automatic upshift 

* conditions have been met. 



static int auto upshift(void) 
C 

/* if (input speed > upshift _point) */ 

if (Cgos > upshiftjx>int) && <output_speed_f i Uered > 120)) 

if (engine_conmunication_active) 

/* if (dshiftabilityjiold) && Oshiftabilityjioldjl)) V 
se L_gear_cnt r2+* ; 
return 1; 

> 

> 

return 0; 



^pragma eject 



* Function: autojiownshif t 

* ~ 

* Description: 

* This boolean function returns true when automatic downshift 

* conditions have been met, 
* 

static int auto downshift (void) 
C 

/* if (input_speed < downshift _point) */ 
if (gos < downshift_point) 
< 

return 1; 

> 

return 0; 

> 

tfpragma eject 



4 



********************************************************** 



* Function: determi ne_autospl i t_type 
* 

* Description: 

* This function is used to determine if the impending shift type is 

* MANUAL or AUTO. 



static char determine_autosplit_type(char passed_new_gear, char passed_initial_gear) 
( 

register char new_gr = passed_new_gear; 

register char init_gr = passed_ini tial_gear; 



if ((shift in_process == FALSE) 



<engine_status == ENGlNE_RECOVERY_MOOE) ) 



if ((new_gr 
(new_gr 
(new_gr 
(new_gr 
(new_gr 



1 && init_gr == 
3 && init_gr » 
5 && init~gr « 
7 && init_gr 



2) 
4) 
6) 
8) 



== 9 && init_gr == 10) 



(new_gr == 10 && init_gr == 9) 

(new~gr == 8 && init_gr == 7) 

(netTgr « 6 && init_gr == 5) 

(new~gr == 4 && init.gr == 3) 

(new~gr == 2 && init_gr == D) 
shiftjnit_type = AUTO; 

else 

shift_init_type = MANUAL; 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



dn */ 
dn V 
oh V 
dn */ 
dn V 
up */ 
up V 
up */ 
up */ 
up V 



if ((init gr <= 4) && (new_gr < init_gr)) 

shift Tnit_type = MANUAL; /* prevent coasting auto downshifts in low gears */ 



#pragma eject 



* Function: get_automatic_gear 



* 



* Description: 

* This function returns an "automatic" forward gear selection. It 

* also performs driver requested shifts (manual j-eo>jest) restricted 

* by shaft speeds. If no gears are available in required direction, 

* initial_gear is returned. 
* 

static char get automat ic_gear( char initial_gear, char manual_request) 

register char new_gear = initial_gear; 

if (automatic sip != -1) 
C 

sel_gear_cntr3++; 

/* initiate or continue an automatic upshift: search up from lowestjorward N c,; 

(fastest input speed) for the first available gear that will provide input - ;( 

speed below a value (approx upshift rpm, minus an offset for gears that will ' 

result in a net downshift) */ 
for (new gear = lowest_forward; lSC 

(new_Tnput_speed(new_gear) > (upshif t_point - 

(new gear < initial gear ? 5° 
(shf tbl.up_offset_rpm ♦ auto_dn_of fset_rpm) : shf_tbl . best _gr_off set))) 

&& (new_gear <= trn_tbl .highest_forward); 

++new_gear) 

t 

/* if we ran out of gears and the highest is available, it must be due to speed; 

pick highest_forward, input speed will be slower than it is now */ 
if (new_gear > trn_tbl .highest_forward) 

new_gear = trn_tbl ,highest_forward; 

desired_gear = new_gear; 
desired~gear_up = new_gear; 

determine_autosplit_type(new_gear, initial_gear); 

/* if in gear manual or the selection will underspeed, pick initial_gear */ 
if (((shift init_type == MANUAL) && (transmissionj»sition == INJJEAR)) || 
(( automat ic_sip ==0) && (new_gear <= ini tial_gear))) 
new_gear = initial_gear; 
else 

/* indicate gear change and adjust downshif t _point */ 

automat ic_sip = +1; 

auto up_of fset_rpm = 0; 

if (shift init'type == AUTO) 

auto_dn~offset_rpm = shf_tbl ,dwn_timer j>f fset_rpm; 
else 

auto dn offset_rpm = 0; 

> 

if ((automatic sip != 1) && (initial_gear > lowest_forward)) w 
C C? x 

/* initiate or continue an automatic downshift: search down from 

highest forward (slowest input speed) for the first available gear that will 
provide~input speed above a value (approx downshift rpm, plus an offset for 
gears that will result in a net upshift) */ 
for (new gear = trn_tbl.highest_forward; 

(new Tnput_speed(new gear) < (downshif t_point + 

(new_gear > initial_gear ? shf_tbl .dwn_of fset_rpm : shf_tbl .best_gr_offset))) 
&& (new~gear >= lowest'forward); 
--new_gear) 

/* if we ran out of gears and the lowest is available, it must be Aje to speed; 

pick lowest_forward, input speed will be faster than it is now */ 
if (new_gear <~lowest_forward) 

new_gear = lowest_forward; 

desired_gear_dn = new_gear; 

if (desired_gear_dn < ini tial_gear) /* must be a down shift or else it */ 




desired_gear = new_gear; 



/* wrongly cancel the desired_up pick. 



deterwine_autosplit_type(new_gear, initial_gear); 

/* if in gear manual or the selection will overspeed, pick initial_gear */ 
if (((shift init type == MANUAL ) U (transn»ission_posi tion == I H_GEAR ) ) 1 1 
(( automat ic_sip == 0) && (new_gear >= initial_gear))) 
new_gear = ini tial_geer; 
else 

/* indicate automatic gear change and adjust upshif tj»int */ 

automatic_sip * -1; 

auto dn offset_rpm = 0; 

if (shift init" type == AUTO) 

auto_upj>ffset_rpm = shf_tbl ,up_timer_of fset_rpm; 
else 

auto_up_of fset_rpra = 0; 

> 

> 

return new_gear; 

) 

#if (0) 

**** This is the select gear based on AutoShift code **** 
#pragma eject 



* Function: get_automatic_gear 

* ~~ 

* Description: 

* This function returns an "automatic" forward gear selection. It 

* also performs driver requested shifts (manual_request) restricted 

* by shaft speeds. If no gears are available in required direction, 

* initial_gear is returned. 

static char get automatic_gear(char initial_gear ( char manual_request) 
< 

register char new_gear = initial_gear; 

if (((automatic_sip == 0) && auto_upshif t<)) || ( automat ic_sip > 0)) 
i 

se I _gear_cnt r 3*+ ; 

/* initiate or continue an automatic upshift: search up from lowest_forward 
(fastest input speed) for the first available gear that will provide input 
speed below a value (approx upshift rpm, minus an offset for gears that will 
result in a net downshift) */ 

for (new_gear * lowest_forward; 

(new_input_speed(new_gear) > (upshif t_point - 
(new gear < initial_gear ? 

(shf tbl.up_offset_rpm ♦ auto_dn_off set_rpm) : shf_tbt .best_gr_off set))) 
&& (new_gear <= trn_tbl -highest_forward); 
♦♦new_gear) 

/* if we ran out of gears and the highest is available, it must be due to speed; 

pick highest_forward, input speed will be slower than it is now */ 
if (new_gear > trn_tbl ,highest_forward) 

new_gear = trn_tbl .high est _f or ward; 

desired_gear = new_gear; 

determine_autospli t_type(new_gear, ini tial_gear); 

/* if in gear manual or the selection will underspeed, pick initial_gear V 
if ((shift_init_type == MANUAL) && ( transmissionjDOSi tion == I M_G£AR ) ) 

new_gear = initial_gear; 
else 
< 

/* indicate gear change and adjust downshift_point V 

automat ic_sip = +1; 

auto_up_of f set_rpm = 0; 

if (shiftjnit~type == AUTO) 

auto_dn~of fset_rpm = shf_tbl .dwn_timer_of fset_rpm; 
else 

auto dn_of fset_rpm = 0; 

> 

> 

else if (<(automatic_sip == 0) && 
(auto_downshift()) && 
(initTal_gear > lowest_forward)) || 
(automatTc_sip < 0)) 

/* initiate or continue an automatic downshift: search down from 

highest_forward (slowest input speed) for the first available gear that will 
provide"input speed above a value (approx downshift rpm, plus an offset for 
gears that will result in a net upshift) */ 

for (new_gear « trn_tbl.highest_forward; 

(new Input speed (new gear) < (downshift_point ♦ 

(new gear > initial_gear ? shf_tbl .dwn_of fset_rpro : shf_tbl .best_gr_of fset))) 
&& (new_gear >= lowest_forward); 
--new_gear) 

/* if we ran out of gears and the lowest is available, it must be due to speed; 

pick lowest_forward, input speed will be faster than it is now */ 
if (new_gear < lowest_forward) 

new_gear = I owes t_f or ward; 

desired_gear = new_gear; 

de t ermi ne_aut osp I i t_type( new_gear , i n i t i a l_gear ) ; 



/* if in gear manual or the selection will overspeed, pick initial_gear */ 



if <<stuftjnit_type *= MANUAL) && (transaissicwijjosition » IN_GEAR)) 

new_gear~* inTtial_gear; 
else 

/* indicate automatic gear change and adjust upshiftj»int */ 

automatic_sip » -1; 

auto dn offset_rpra » 0; 

if <shiftjnit_type == AUTO) 

auto_up_offset_rpra = shf_tbl .up_timer_of fset_rpro; 
else 

auto up offset_rpm = 0; 

> 

> 

return new gear; 

> 

tfendif 

^pragma eject 



* Function: determine_desti nation 

* ~ 

* Description: 

* This function uses "coast ing_latch" to determine if a coasting or 

* skip shift is being attempted. When sensed, the latch is used in 

* the deterrai ne_base_pts function to effect the base shift points. 



void determine destination(void) 

C 

/* if coasting in neutral - force shift points */ 

if (coasting_latch == FALSE) 

if ((last known gear - destination_gea reelected) > 1) /* multi downshift 

if ((destination_gear_selected == 7) 
(destination~gea reelected « 5) 
(destination~gear_selected == 3) 
(destination~gear_selected == 1 )) 

< 

des t i na t i on_g ea r_se I ec t ed++ ; 
coasting latch = TRUE; 

> 

> 

else 

if ((destination_gear_selected - last_known_gear) > 1) /* multi upshift 
C 

if (( des tination_gea reelected == 10) 
(destination_gea reelected == 8) 
(dest inat ion~gear_selected == 6) 
(destination gear_selected == 4)) 

< 

dest i nat i on_gear_selected- - ; 
coasting latch = TRUE; 

> 

> 

> 

> 

else 

if (shift_inj>rocess == FALSE) 
coast ing_latch = FALSE; 



#pragma eject 



* Function: detertninejnanual_shif t_pts 
* 

* Description: 
* 

static void determine_manual_shift j)ts(void) 
( 

if (coasting latch == FALSE) 
< 

if <(lastJcnown_gear == 1) 
( last_known_gear ==3) 
(last_lcnown_gear ==5) 
( Last _known_g ear == 7) 
(lastjtnown^gear == 9)) 
auto^dn^rpm =~1325; /* manual downshifts V 

else 

auto up rpra = 1375; /* manual upshifts */ 

> 



> 

#pragma eject 



/***** * **** * ** * * * ***** * * * **«* * *«» *** 

* Function: cteterwine_base_auto_shift - pts 
* 

* Description: 

* This function determines the base up and down shift points based on 

* the position of the throttle. These base points will be used in the 
*' calculation of the upshift j»int and the downshift _jx>int. 

* 

* The anti-hunting calculations have been moved to this function since 

* these calculations are now throttle dependent. 
* 

static void determine base_auto_shif tj>ts(void) 
C 

if (pet demand at cur_sp > 0) 
( 

/* auto up rpm = shf_tbl .auto_up_lo_base ♦ 

<<"shf_tbl.aut_upj"pm - shf~tbT.auto_up_lo_base) * Xthrottle) * 

_cx = shf_tbl.aut_up_rpm - shf_tbl .auto_up_lo_base; 
~bx = pct~demand_at_cur_sp; 
asm mulu _cxdx, _bx; 
asm divu "cxdx, #100; 

auto_up_rpm = shf_tbl .auto_up_to_base ♦ _cx; 

/* check for RTD requirement */ 
if (pct_demand_at_cur_sp > 90) 

auto~up_rpm += shf_tbl ,auto_rtd_of fset; 

/* auto dn rpm = shf tbl .auto_dn_lo_base ♦ 

(7shf_tbl.aut_dwn_rpm -~shf_tbl ,auto_dn_lo_base) * Xthrottle) 

_cx = shf_tbl.aut_dwn_rpm - shf_tbl .auto_dn_lo_base; 
~bx = pct~demand_at_cur_sp; 
asm mulu _cxdx, _bx; 
asm divu _cxdx, #100; 

auto dn rpm = shf tbl ,auto_dn_lo_base ♦ _cx; 

> 

else 
C 

auto_up_rpm = shf_tbl ,auto_up_lo_base; 
auto~dn~rpm = shf~tbl.auto dn_lo_base; 

> 

determine_manual_shift _pts(); 

if (shift in_process) 

/* reset antihunt_counter */ 
antihunt_counter = 0; 

/* allow the knob display to flashed any new desired gear */ 
flash desired_allowed = TRUE; 

> 

else 

/* reset shift in process flags and update antihunt_counter */ 

automat ic_sip » 0; 

if (antihunt counter < 255) 

< 

♦♦antihunt counter; 
/* flash desired allowed « FALSE; V 

> 

/* look for upshift ant i -hunt reset conditions V 

if ((antihunt counter * (US PER LOOP/1000)) >= shf_tbl.offset_time) 

C 

/* check for last shift = upshift effects */ 

if (auto_dn_of fset_rpm == shf_tbl ,dwn_timer_of fset_rpro) 

auto dn offset rpm = shf_tbl .dwn_of fsetj-pm; 
else if~((auto dn"of fset_rpm == shf_tbl .dwn_of fsetj-pm) && 

(input_speed_f7ltered~> auto_dn_rpm ♦ shf_tbl .dwn_reset_rpm)) 

autojfr_of fset_rpm = 0; 

/* check for last shift * downshift effects */ 

if (auto_up_offset_rpm shf_tbl .up_timer_of fset_rpra) 



auto up offset_rp» s shf_tbl.up_of fset_rp«; 
else if~((auto up~offset rpa =* shf_tbl.up.offset_rpnO U 

(input^specdjTltered^ auto_up_rp« - shf_tbl .up_reset_rpn)) 
auto_up_offset_rp« » 0; 

/* allow the knob display to flashed the desired gear */ 

if (((desired gear > destination_gear_selected) && (gos < (upshift_point ♦ 25))) || 
((desired~gear < destination'g ear's elected) && (gos > (downshift_point - 25)))) 
f lash_desired_allowed = FALSE; 
else 

flash desired_allowed = TRUE; 

> 

> 

/* set the shift points based on throttle and determined offsets */ 
upshift_point = auto_up_rp» ♦ auto_up_of f set_rpn»; 
downshiftj»int = auto_dn_rpm - auto_cirij>f fset_rpm; 

/* check that the calculated shift point is reasonable */ 
if (upshift_point > shf_tbl .man_dwn_sync_rpm) 
upshif t_point = shf_tbl ,rran_dwn_sync_rpm; 

if (downshift_point < shf_tbl .man_up_sync_rpm) 
downshif t_point = shf_tbl .man_up_sync_rpm; 



#pragma eject 



* 

* Function: select_gear 
* 

* Description: 

* This is the root function for the periodic task SELECTJ5EAR. Each 

* loop begins by checking the manual up/down buttons. Then, based on 

* selected jnode and output shaft speed, a *get_. . ..gear 1 function is 

* called to update dest inati on_gea r_selected . 



void select_gear(void) 

C char manual request; /* current nanual request <♦/- 1) V 

static uchar enable_gcw_calc; /* diagnostic - delete later II*/ 

enable_gcw_calc ' FALSE; /* diagnostic - delete later !!*/ 

shf_tbl = ini_shf_tbl; /* initialize the shift table */ 

destination_gear_selected = 1; 
desired_gear = 1; 

/* initialize file scope variables */ 

w1 = 3; 
w2 = 4; 
w3 = 5; 
w4 = 6; 

lpf_output_speed = output_speed; 

upshtft_point = shf_tbl ,aut_up_rpm; 

downshift_point = shf_tbl . aut_dwn_rpm; 

auto up offset rpm = shf_tbl .up_timer_of fsetj-pm; 

auto~dn~offset~rpm = shf'tbl .dwn_timer_of fset_rpm; 

lowest Jorward~= INITIAL~START_GEAR; 

automatic_sip = 0; 

antihunt_counter = 255U; 

coasting'latch = FALSE; 

ftash_desired_allowed = TRUE; 

x start_periodic(); 
while (1) 

{ mdaj>utput_filter<); /* update our filtered output speed */ 

manua I _ request = 0; 
detertnTne_base_auto_sh i f t j)ts( ) ; 

/* set destination_gear_selected from function(s) appropriate for selected jnode V 

switch(selected mode) 

i 

case REVERSE_M00E : 

case DRIVE MODE: 

if (<forward_last == TRUE) && <low_speed_latch == FALSE)) 

* destination_gear_selected = get_automatic_gear(destination_gea reelected, manual j-equest); 
determine destination ); 

sel gear_cntr1-M>; /* debug use only - delete later */ 

> 

break; 

case LOU MODE: 

case HOLD MODE: 

case NEUTRAL_MODE: 

case PARK MODE: 

case POWER UP_M00E: 

case POUER~DOUM MODE: 

case DIAGNOSTI(fTEST_MO0E: 

/* prevent transient selection upon mode change (these modes ignore it) / 

destination_gear_selected = 0; 

break; 

default: 

/* invalid mode: do nothing */ 
break; 

> 

x syncj»riodic(US PERJ.OOP); 



> 

x end_periodic(); 

> 



Unpublished and confidential. Not to be reproduced, 
disseminated, transferred or used without the prior 
written consent of Eaton Corporation. 

Copyright Eaton Corporation, 1991-94. 
All rights reserved. 



* Filename: seq_shft.c96 (AutoSplit) 
• 

* Description: 

* The functions in this file will perform the required syste 

* level operations for implementing Sequence Shift. 
* 

* Part Number: <none> 
* 

* SLog: R:\aselect\vcs\seq_shft.c9v $ 
* 

* Rev 1.0 12 May 1994 16:26:00 markyvech 

* Initial version 



,************************ 
* 

* Header files included. 



V 



U include <exec.h> /* executive information V 

^include <c regs.h> /* KR internal registers */ 

^include <wwslib.h> /* World Wide Software Library */ 

#include "cont sys.h" /* control system information V 

#include "conjT939.h (> /* Oefines interface to engine communications info 

#include "con_o_s.h M /* control output signal information */ 

# include "drl~cmds.h H /* drivel ine commands information */ 

# include "sel~gear ,h M 

#include "shf~tbl .h" /* Contains information relative to engine */ 

#include "trn~tbl.h" /* transmission table information */ 

#include "trns act.h" /* transmission information V 



* 

* ^defines local to this file. 
* 

/************************************************************************ 

* publics. 



uchar sq_sh1; /* debug counter - delete later */ 
uchar sq_sh2; /* debug counter - delete later */ 
uchar sq_sh3; /* debug counter - delete later */ 



* Constants and variables declared by this file. 
* 

static uchar coastjnode; /* allows vehicle to coast in low gears */ 
static uint modest ime_out; /* time to disengage or synchronize a gear */ 



#pragma eject 



* Function: initialize_sequence_shift 

* ~" 

* Description: 

* This function initializes the variables to be used in sequence_shift. 



void initialize sequence_shift(void) 
( 

shift^type = UPSHIFT; 
shif t"inj3rocess = FALSE; 

> 



#pragma eject 



* 

* Function: shif t_initiate 
• 

* Description: 

* This function begins the shift sequence by setting up the 

* transmission to pull to Neutral, commands the electronic engine 

* controller to go to zero torque and prepares the clutch to disengage 

* if required. 
* 

**•*********************************************************************/ 

static void shift ini ti ate(void) 
C 

if (destination gear < last Jcnown_gear) /* determine shift type V 

if (pet demand at cur sp > 5) 
shift"type =~POWER_DOVN_SHl FT; 

else 

shift type = COAST DOVN_SHIFT; 

> 

else 

shift_type = UPSHIFT; 



/* Attempt to get out of gear for 3 seconds then return fuel to driver 

/* 

if ( (engine_status »= ENGINEERED I PJ40DE) && (mode_time_out > 0) ) 

mode_time~out = 300; 
if ( (mode_t7me_CHJt > 0) && ( ! coastjnode) ) 

--mode time out; 

V 

mode_time_out = 300; /* force value for now */ 

/* initiate a normal shift sequence */ 

/* (do not request engine fueling with engine brake on) */ 
eng_brake_command = ENG_BRAKE_OFF; /* eng brake: zero torque V 

if (Opf output speed < shf tbl.min output_spd) || 
(clutch_state == DISENGAGED) || 
(mode_t!me_out ==0) || 
((destination_gear < 4) && 
(coastjnode) && 

(accelerator_pedal_position <= 5) && 
(shift type != UPSHIFT))) 

< 

engine commands = ENGINE_FOLLOWER; 

> 

else 
C 

engine_commands = ENGINEERED IP; /* engine: bring torque to zero * 

coast mode = FALSE; 

> 

> 

^pragma eject 



* Function: synchronize_gear 



* Description: 

* This function assists the sychronizing of the transmission it 

* possible, by controlling input shaft speed through the use 

* of the clutch, power synchronizer, or inertia brake. It will 

* offset sync windows if the shift is taking longer than expected. 

* It will assist with engagement at rest if the clutch is dragging. 
* 

static void synch r on ize_gear( void) 
i 

/* turn on engine brakes (J1939) if engine brake assisted shift is requested 

if Ceng brake assist) 

eng_brake_cocnnand = ENG_BRAKE_FULl; 

else 

eng_brake_con¥nand = ENG_BRAKE_OFF; 
/* Attempt to engage for 6 seconds then return fuel control to the driver V 

/* 

if ( (engine_status != EMG I NE_SYNC_MODE ) && ( modest ime_out > 0) ) 

mode time-out = 600; 
if < (mode_t7me_out > 0) && (! coast jnode) ) 

--mode time_out; 

*/ 

mode_time_out = 600; /* force value for now */ 

if (Upf output speed < shf tbl ,min_output_spd) || 
<clutch_state == DISEMGAGED) || 
(mode_tTme_out ==0) | | 
((destinatTon_gear < 4) && 
(coast_mode) && 

(acceleratorjpedal jxsition <= 5) && 
(shift_type != UPSHIFT) ) ) 

C 

engine commands = EMG I NE_FOLLOWER ; 

> 

else 
i 

enginejrommands = ENGINE_SYNC; 
coast mode = FALSE; 

> 



#pragma eject 



* Function: conf irn_shif t 



* Description: 

* This function finished the shift; shif t_in_process is set FALSE. 



static void conf irtn_shift(void) 

engine_commands = ENG I NE_RECOVER Y ; 
engJ>rake_conmand = ENG_BRAKE_OFF; 
mode_t ime_out = 300; 
shift_inj5rocess = FALSE; 
coast jnode = TRUE; 



/* engine: finish torque return 
/* eng brake: zero torque */ 
/* reset for next shift */ 



#pragma eject 



* Function: sequence_shift 
* 

* Description: 

* This function calls the appropriate procedures to perform the 

* operations of Sequence_Shift depending on the correct state of 

* the shift process, 
• 

************************************************************************/ 



void sequence shift(void) 

if (destination gear == NULL GEAR) /* system has reset: do not start a shift 
< 

engine commands = EMGINE_FOLLOWER; 
eng brake_command = ENG BRAKEJDLE; 

> 

else 

if (<transmission_position == OUT OF GEAR) && 
((engine status == ENGINE_SYNC~MCOE) || 

(engine~status == ENGINE PREdTp MOOE))) /* forces call shif t_initiate() 

C 

synchroni ze_gear( ) ; 

> 



else 

if (((engine status == ENGINE SYNC MOOE) || 

(enginejstatus == ENGI NE_RECOVERY_M0DE ) ) && 
(destination_gear == current_gear7 && 
(transmission_position == I N_GEAR ) ) 

{ 

*sq_sh2++; 
confirm shiftO; 

> 



else 

if (((destination gear != current gear) .&& /* auto splitter */ 
(low_speed_latch == FALSE) &&" 
(automatic'sip != 0) && 
(transmissi on-position == IN_GEAR)) || 
((transmission_position == OUT_OF_GEAR) && /* manual shift */ 
(lowspeed latch == FALSE))) ~ 

< 

shift_initiate(); 
sq_sh3++; 



* Unpublished and confidential. Not to be reproduced, 

* disseminated, transferred or used without the prior 

* written consent of Eaton Corporation. 
* 

* Copyright Eaton Corporation, 1994. 

* All rights reserved. 
* 

************************************************************************ 
* 

* Filename: tm«^aer.c96 (AutoSplit) 

* ~~ 

* Description: 

* This modules monitors and controls the transmission actions. 
• 

* Part Number: <none> 
* 

* SLog: ??? % 
* 

* Rev 1.0 3 May 1994 13:35:04 markyvech 

* Initial revision. 
* 

************************************************************************/ 
; *************************************************************************** 
* 

* Header files included. 
* 

***************************************************************************/ 

^include <exec.h> /* executive information */ 

#include <c regs.h> /* ICR internal register definitions */ 

#include <kr sfr.h> /* defines the kr special function registers */ 
#include <kr~def.h> /* 80c196kr bits, constants, and structures */ 
#include <wwslib.h> 

#include "drl_cmds.h" /* engine control interface */ 
#include "trns act.h" /* interface to this module */ 
#include "trn tbl.h" /* transmission table */ 



#include "calc_spd.h M 
#include "cont~sys.h" 
#include "sel gear.h" 
#include »conTl939.h» 



* Variables declared by this file. 



register unsigned char transmission ^position; 

unsigned char low_speed_latch; 

unsigned char forward_last; 

unsigned char splitterju; 

unsigned char spli tter_lo; 

unsigned char spl i tter_timer; 

unsigned char spl itter_wi thin_sync; 

unsigned char aux_box; 

signed char gj)tr_old; 

signed char current_gear; 

signed char last_known_gear; 

unsigned int gear~in_timer; 

unsigned int gear_out_timer; 

unsigned int abs_trans_sync_error; 

unsigned int trans_window_calc; 

signed int i rtput~speed_mod i f i ed; 

signed int trans_sync_error; 

signed int range_error; 

signed int range_cal; 

signed int splitter_tc; 

signed long isdgf; 

signed long gros; 

signed char g_ptr; 



#pragma eject 



* ^defines and constants local to this file. 
* 



#define US PER LOOP 10000U 
#def ine RKMJJS_PER_10GP 40000U 

static const uchar SPLITTERJ.OJABIE [23] = 
( 
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static const uchar SPLITTER_HI_TABLE (233 
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#pragma eject 



static const uchar SPHTTER.TCJABLEC23] * 
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#pragma eject 



* Function: Initial ize_Trans_Act ion 
* 

* Description: 

* This function initializes those module variables that must be set to a 

* know state on power up or reset. 
* 

***************************************************************************/ 



void initialize trans_action(void) 
{ 

gear_in_timer = 200; 

gearjxjt_t imer a 200; 

g_ptr_old = 0; 

current_gear = 0; 

lastJcnown_gear » 0; 

destTr»ation_gear = 0; 

transmission_position = 0UT_OF_GEAR; 

low_speed_latch = TRUE; 

split ter_To = 0; 

splitterjn = 0; 



#pragma eject 



^ *»*#**************************«****************** *************** 

* Function: detertaine.gear 
* 

* Description: . . 

* This function determines the current gear that the transmission 

* is in. When conditions are such that the current gear can not be 

* determined it will be set to a default,(0). 
* 

* Note: When the error across the transmission is near zero for some 

* time for a given test gear then it will be deemed in that gear. 
* 

* error = input_spd/gf [gear] - grCgear] * os 



void determine gear(void) 

i 

#define BIN 8 
#define MAX.ERR 
#define WINDOW 
#define GEARJN TIME LEVER 
#define GEAR IN TIME.AUTO 
#define GEAR OUT.TIME 
#define ERROR FUDGE.F ACTOR 
/* 

signed long isdgf; 
signed long gros; 
signed char g_ptr; 
*/ 
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#if CO) 

gj)tr = -1; /* lowest reverse ratio */ 

/* isdgf = (((signed long) input_speed.fi Iter ed) * BIN_8) / trn_tbl .GF [g_ptr ♦ GR.OFS]; V 
bx = (signed int)( input.speed.fi Itered) ; 
~cx = SIN 8; 

jix = trn.tbl. GF[g_ptr ♦ GR.OFS] ; 
asm mul _cxdx, _bx; 
asm div .cxdx, _ax; 
isdgf = _cx; 

/* gros = (((signed long) output speed.f i Itered) * trn.tbl. GRtgjrtr * GR.OFS] ) / BINJ2; V 
_bx = (signed intXoutput_speed.fi Itered ♦ ERROR.FUDGE.F ACTOR ) ; 

cx = trn tbl.GRCg.ptr ♦ GR.OFS]; 
_ax = BIN.8; 
asm mul .cxdx, .bx; 
asm div .cxdx, .ax; 
gros = .cx; 

trans.sync.error = (isdgf - gros); 
if (isdgf > gros) 

abs.trans.sync.error = (unsigned int)( isdgf - gros); 

else 

abs trans.sync.error * (unsigned int)(gros - isdgf); 

#endif 

abs.trans.sync.error = MAX.ERR; 
trans.window.calc = 0; 



if (abs trans.sync.error > trans.window.calc) /* if not in reverse, check for forward */ 

t 

g_ptr = 1 ♦ trn.tbl. highest.forward; 
abs.tr ans sync error = MAX.ERR; 

while ((abs.trans.sync.error > trans.window.calc) && (g_ptr ! = 0)) 



iidgf ^'(((signed long) input.speed.fi Itered) * BIN.8) / trn.tbl .GFtgj>tr ♦ GR.OFS] ; V 
bx = (signed i nt ) ( i nput.speed.f i Itered ); 
"cx = BIN 8; 

.ax = trn.tbl. GFtg_ptr ♦ GR.OFS]; 
asm mul _cxdx, ..bx; 
asm div ~cxdx, , .ax; 
isdgf = .cx; 

gros * (((signed long) output.speed.fi Itered) * trn.tbl.GRtg.ptr ♦ GR.OFS]) / BIN.12; 
bx = (signed int)( output_speed.fi Itered ♦ ERROR.FUDGE.F ACTOR); 
_cx « trn.tbl. GRtgj)tr ♦ GR.OFS] ; 



_ax * BIN_8; 
as* nul _cxdx, _bx; 
asa div _cxdx, _ax; 
gros ■ _cx; 



trans_sync_error » isdgf - gros; 
if (isdgf > gros) 

abs_trans_sync_error (int)< isdgf - gros); 
else 

abs_trans_sync_error = <int)(gros - isdgf); 

/* calculate trans sync error window based on gear pointer */ 

bx = WINDOW; /* BIM 0 */ 

"ex = BIN 8; /* BIN 8 */ 

"ax = trn~tbl.GF[g_ptr + GR OFS] ; /* BIN 8 */ 

Ism mulu "cxdx, bx; ~ /* make WINOOW BIN 8 V 

asm divu ~cxdx, >x; /* divide by front ration BIN 8 */ 

trans_window_calc = _cx; /* BIN 0 */ 



> 



if < g _ptr == 0) /* If in neutral, force values */ 

< 

abs_trans_sync_error = HAX_ERR; 
trans_sync_error = MAX_£RR; 
trans3window_calc = 0; 
isdgf~= 0; 
gros = 0; 

> 

if ((abs trans sync error > trans window_calc) || /* Must have error for some */ 
((g Ptr != current gear) && (current_gear > = 0))) /* before neutral state is */ 
{ " /* recognized. V 

if (gear out timer == 0) 

transmission ^position = OUT_OF_GEAR; -J 
current gear = 0; 

> 

else 

gear out timer--; 

> 

else 

gear_out_timer = GEAR_OUT_TIME; 



if ((g_ptr != g_ptr_old) || (g_ptr ==0) || 
((accelerator_pedal jxjsition < 5) && 
(input speed < 800) && 
(low_speed_latch == FALSE))) 

if ((engine commands == ENGINE_SYNC) || 
(engine~coninands == ENGINE_PREDIP)) 

< 

if (shift init type == AUTO) 

geer_in~timer = GEAR_I N_T I ME_AUTO; 
else 

gear in timer = GEARJN_TIMEJ.£VER; 

> 



/* if not in gear, init gear in timer. 

/* Rule out picking a gear when coasting 

/* down in neutral and no throttle. 

/* (Found that idle speed and output speed 

/* would natch a gear even when in neutral.) 



> 



else 

if (gear in timer " 0) 
< 

current_gear = g_ptr; 
lastJcnown_gear = gj>tr; 
transmission_position = I N_GEAR ; 

if ((gos current gear > (downshift _point ♦ 100)) && 
(low~speed latch == TRUE)) 

( 

low_speed_latch = FALSE; 
destination_gear = cur rent _gear ; 
destination~gear_selected = current_gear; 
desired_gear = current_gear; 
lowest forward s current_gear; 

> 

else 



if (low_speedJatch == TRUE) 

destination gear a towest_forward; /* was set to 1 

destination~gear_selected~* lowest_forward; /* was set to 1 
desired_gear « lowest_forward; /* was set to 1 

shift in ^process « FALSE; 

> 

> 

if (last known_gear > 0) 

forward_last~a TRUE; 
else 

forward_last = FALSE; 

> 

else 

g ea r _ i n_ t i me r - - ; 
g_ptr_old = g_ptr ; 

if (output speed_f iltered < 80) /* If stopped - current_gear * first. 

C 

current_gear = 0 ; 

transmissi on-position = OUTJ)FJiEAR; 
low speed_latch = TRUE; 

> 

> 



/* Record REV/ FOR data for 
/* use in the select_gear 
/* module. 



^pragma eject 



* Function: detertnine_range_status 
* 

* Description: 

* This function determines the status the of range, 
* 

* rng_err = rear_counter_spd * (range_ratio * output_spd) 

* ~" 

* res = 54/21 * 44 * os (for low range) 
* 

* res = 42/51 * 44 * os (for high range) 

************************************************************************/ 



void determine range_status<void) 
( 



#define BIN 12 


4096 


/* 


2 bin 12 


V 


#define HI RANGEJSEAR 


7 








#define LO~RANGE CAL 


10532 


/* 


54/21 8IN 


12 V 


#define HI~RANGE_CAL 


3373 


/* 


42/51 BIN 


12 V 


#define RANGE WINDOW POS 


30 


/* 


30 RPM 


*/ 


#define RANGE~WINDOW NEG 


-30 


/* 


-30 RPM 


*/ 



if (destinatioh_gear >* HI RANGE_GEAR) 

range_cal = HI_RANGE_CAL7 
else 

range_cal = LO_RANGE_CAl ; 

range error =( ( (aux speed * BIN_12) 

- (range_cal * output_speed_f i I tered) )/BIN J2); 

if ((range error > RANGE_WINDOW_POS) || (rangejsrror < RANGE_VINDOW_NEG)) 

aux_box = OUT_OF_GEAR;~ 
else 

aux_box = IN_GEAR; 



pragma eject 



r***************************************** ****** 



* Function: determine_splitter 
* 

* Description: 

* This function determines the correct state for the splitter. 

* Once the transmission is in gear both splitter solenoids are turned off 
* 

************************************************************************/ 

void determine spl itter_state(void) 

#define SPUR SYNC OFFSET POS 80 /* 80 RPH V 
#define SPLTR~SYNC OFFSET MEG -80 /* -80 RPM V 
#define SPLITTER tTmE 20 /* 200 MSEC V 



if (engine status == ENGINE PREDIPJ400E) 

splitter~timer * SPLITTER_TIME; 
else 

if (splitter_timer > 0) 
splitter_t7mer--; 



splitter_tc = SPL !TTER_TC_T ABLE [destinat ion_gear ♦ GRJJFS] ; 

input speed modified = (signed int)( input .speedji Iter ed) ♦ 

( i nput_speed_accel_f i 1 1 ered/ ( 1000/spl i t ter_tc ) ) ; 

if ((input speed modified < (gos signed + $PLTR_SYNCJ)FFSET_POS)) && 
(input~speed~modified > (gos_signed ♦ SPLTR_SYNC_OFFSET_NEG) ) ) 
splitter~within_sync = TRUE; 
else 

splitter_within_sync = FALSE; 



if ((splitter_timer > 0) | | ^ 

((transmissionjx)sition == INJSEAR) && 
(shift_in_process == FALSE)) || 

(low_speed_latch == TRUE) || 

(engine_status == ENG I NE_RECOVER Y_MOOE ) || 

((shift init type == MANUAL) && 
(engine_status == ENGINE_SYNC_HOOE)) || 

((shift init type == AUTO) && 
(engine.status == ENGINE_SYNCJ400E) && 
(splitter_within_sync == TRUE))) 

splitter hi = SPLITTER HI TABLE [dest i nat i on_gear ♦ GR.OFS]; 
splitter"lo = SPLITTER^LO^TABLECdestinati ^gear ♦ GRJ3FS] ; 

> 

else 
{ 

splitter_hi = OFF; 
splitter"lo = OFF; 

> 

> 

^pragma eject 



/* debug - delete later 
/* debug - delete later 



* Function: Transmission_Action 
* 

* Description: 

* This funtion controls the states of the system oqput devices. 



void transmission_action(void) 
{ 

initialize trans actionO; 



/* initialize variables V 



x start_periodic(); 

while (1) 

C 

de t e rm i ne_gea r ( ) ; 
detertni ne_range_st at us ( ) ; 
determi ne~spl i t ter_state( ) ; 

x_sync_per i odi c <USJ>ER_100P ) ; 



/* calculate the current gear */ 

/* determine range state */ 

/* determine correct state for splitter */ 



x_end_periodic<); 



This Page is Inserted by IFW Indexing and Scanning 
Operations and is not part of the Official Record 

BEST AVAILABLE IMAGES 

Defective images within this document are accurate representations of the original 
documents submitted by the applicant. 

Defects in the images include but are not limited to the items checked: 

□ BLACK BORDERS 

□ IMAGE CUT OFF AT TOP, BOTTOM OR SIDES 

□ FADED TEXT OR DRAWING 

□ BLURRED OR ILLEGIBLE TEXT OR DRAWING 

□ SKEWED/SLANTED IMAGES 

□ COLOR OR BLACK AND WHITE PHOTOGRAPHS 

□ GRAY SCALE DOCUMENTS 

□ LINES OR MARKS ON ORIGINAL DOCUMENT 

□ REFERENCE(S) OR EXfflBIT(S) SUBMITTED ARE POOR QUALITY 

□ OTHER: 

IMAGES ARE BEST AVAILABLE COPY. 
As rescanning these documents will not correct the image 
problems checked, please do not report these problems to 
the IFW Image Problem Mailbox. 



